$a+=print,s/\S+/$a-length$&?$&:$"x$a/ge,s/ +$//for(<>)x10