c:\@Work\Perl>perl -wMstrict -e
"print 'enter a string: ';
 my $string = <STDIN>;
 chomp $string;
 print qq{'$string' \n};
"
enter a string: )\n(
')\n('