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