Help for this page
my $x = '123'; (my $y = $x) =~ s/(2)/$1+1/e; print $y;
my $x = '123'; (my $y = $x) =~ tr/2/3/; print $y
my $x = '123'; my $y = $x + 10; print $y