$a+=print,s/\S+/$a-length$&?$&:$"x$a/ge,s/ +$//for(<>)x10
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page