print $string = substr($1,0,length($1)-1) . "X" . $2 if $string =~ m{^(aabb)(.*)$};