print q!This is a string with 'single' and "double" quotes!;
my $quotes='double quotes';
print qq!This is a string with "$quotes" around a variable\n!;