#!perl -pla
/((.)(?1)\2|.?)(??{$F[length$1]||=$1;x})/;$_=pop@F