#!perl -p
s//$. /;s#(.{0,40})(\s)#$_=$1;s;$2;$&x($a+=(40.001-y///c)/y/ //-~~$a+1);ger.$/#ge