c:\@Work\Perl>perl -wMstrict -le
"my $s = 'fee \n fie $foo fum';
 print qq{'$s'};
 ;;
 my $t = qq{zit $s zot};
 print qq{'$t'};
"
'fee \n fie $foo fum'
'zit fee \n fie $foo fum zot'