Mega Code Archive
You can change the delimiters with the q operator
#!/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.