#!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