c:\@Work\Perl\monks>perl -wMstrict -le
"my $a = 'foo';
 my $ab = qq{'\$a'  '$a'};
 print $ab;
"
'$a'  'foo'