#!perl -p
s/(.)(?!\1\1)(.*)\1$/$1.("x"x length$2).$1.$2/e;y/x / /d