$_=join"",<>;s/\s//g;print substr($_,0,++$k,""),"\n"while$_