$x=/((.)(?1)\2|.?)(??{length$x<length$1?$x=$1:x})/*print$x,$/for<>