>perl -wMstrict -le
"my $string = 'hi there';
 my $strung = qq{'$string'};
 print $strung;
"
'hi there'