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