my $x = '123'; 
(my $y = $x) =~ s/(2)/$1+1/e;
print $y;

##</code><code>##

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

##</code><code>##

my $x = '123'; 
my $y = $x + 10;
print $y