$string =~ s/(.)\1/${1}2/gi;