String Perl

#!/usr/bin/perl -w
$var = q~String with "double" and 'single' quotes~;
print "$var\n";
#The tilde character (~) is a replacement for the single-quote character. 
#This allows your input data to contain single or double quotes.