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

##</code><code>##

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