## abcdefghij klm nopqrstuvw xyz ##
## abcdefghij klm nopqrs tuvwxyz ##
## print DUMP map "$_\n", $a=~/(.{1,80})/g;