Select Code to Download

if ( length($_) > 80 ) {
   chop;
...
else {
   print $_;
}

while (length($_) > 80) {
   print substr($_, 0, 80) . "\n";
   $_ = substr($_, 80);
}
print $_ ;