($x.$_)=~/(.{6}).*
(.*)\1/,print$x=$"x($`=~y///c-length$2).$_ for<>