#!perl -p
s/^/$. /,s@(.{1,40})\s@$'?($z=$l=0.,$_=$1,s# #$&x(1-$l+($l=int++$z*(40-y!!!c)/tr! !!))#ge,$_.$/):$&@ge