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