print DUMP map "$_\n", $a=~/(.{1,80})/g;