#!perl -p
s/^((.).*?)(\2?)$/$1x<>.$3/e