Help for this page
if ( length($_) > 80 ) { chop; ... else { print $_; }
while (length($_) > 80) { print substr($_, 0, 80) . "\n"; $_ = substr($_, 80); } print $_ ;