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

##</code><code>##

"axabxbxxxcxccdadenmxmpyxyx"