20 char wrap splitting on spaces by tails

map{$l=$a[$j=--$i]=~y/ //c;0while($c=($l-18)**2-$a[$j++]=~/_$/*9+($l-$$j[2])**2/2+"@$j")<"@$i$<0"?@$i=($c,$j,$l):0,$j&&($l+=length$a[$j])<20}@a=<>=~/^| +\S*/g;0while$a[$i=$$i[1]]=~s/ +/
/;print@a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page