Select Code to Download

$_ = 'ab';
s/^(a{1,3})(?=b)/$1a/g; # => $_ = 'aab'

$_ = 'ab';
s/^(a{1,3})(?=b)/pos = 0, $1 . 'a'/eg; # still, $_ => 'aab'