c:\@Work\Perl\monks>perl -wMstrict -le
"my $data = 'this is my data';
 my $s = qq(($data));
 print qq{'$s'};
"
'(this is my data)'