>perl -wMstrict -le
"my $s = q(foo);
 print qq{'$s'};
 ;;
 $s = q((bar));
 print qq/'$s'/;
"
'foo'
'(bar)'