$_=<>;s/\S+/length$&>$i?$&:" "x$i/ge,s/ +$//,print,$i++while/\w/