#!perl -p
s/((.)(?1)\2|.?)$/$&.reverse$`/e