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