my $x = '123'; 
(my $y = $x) =~ tr/2/3/;
print $y