$str =~ s/(.)(?=\1)/$1x/g;