#!perl -p0
s/\s//g;++$.while s/.{$.}\K/
/