Help for this page

Select Code to Download

Select or download this

sub line_wrap {
   my ($str, $max) = @_;
...

   return join("\n", @lines) . "\n";
}

Select or download this

sub line_wrap {
   my ($str, $max) = @_;
...

   return join("\n", @lines) . "\n";
}