c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'XXXooX';
 (my $t = $s) =~ tr/XoX/ab/;
 print qq{'$t'};
"
'aaabba'