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