/((.)(?1)\2|.?)(??{$h[length$1]||=$1;x})/,print@h=pop@h,$/for<>