#!perl -p\x0d s/^/$. /,s@(.{1,40})\s@$'?($z=$l=0.,$_=$1,s# #$&x(1-$l+($l=int++$z*(40-y!!!c)/tr! !!))#ge,$_.$/):$&@ge
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page