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