Select Code to Download

perl -ln0e's/\s+/ /g;print$"x(40-($c=2+length$&)/2),$&while/.{0$c,}? |
+.+/g' a.txt w.txt
                                      a 
...
                      words only on spaces or new lines 
                    a a a a a a a a a a a a a a a a a a a 
                       a a a a a a a a a a a a a a a a

print($"x(40-($c=2+length$&)/2),$&),$c*=($c<80)while...