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