#!perl -lp
$--;/(?=(.{$})).+\1/?$=$_=$1:redo