#!perl -p s//$. /;s#(.{0,40})(\s)#$_=$1;s;$2;$&x($a+=(40.001-y///c)/y/ //-~~$a+1);ger.$/#ge
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page