#!perl -p0
s/\s//g;1while++$n,s/.{$n}/$&
/