1 while s/^(a{1,3})(?=b)/$1a/;