$x = '123'; $y = $x; $y =~ s/(2)/?{$1+1}/x; print $y

##</code><code>##

133

##</code><code>##

1?{2+1}3