$string =~ s/([a-zA-Z])\1/${1}2/g;

##</code><code>##

$string =~ s/([a-z])\1/${1}2/ig;