c:\@Work\Perl\monks>perl -wMstrict -le
"my $str = q{$line};
 print qq{'$str'};
"
'$line'