c:\@Work\Perl>perl -wMstrict -le
"chomp(my $pw = <>);
 print qq{>>$pw<<};
"
r;OFTaf#a2Mt9d\1
>>r;OFTaf#a2Mt9d\1<<