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

   my @lines;

   foreach my $line (split($\, $str))
   {
      # # Collapse spaces and tabs.
      # s/\s+/ /g;

      while (length($line) > $max)
      {
         my $max2 = $max - 1;
         if ($line =~ s/^(.{0,$max2}\S)\s+//s)
         {  # Break at space.
            push(@lines, $1);
         }
         else
         {  # No space.
            $line =~ s/^(.{$max})//s;
            push(@lines, $1);
         }
      }

      push(@lines, $line);
   }

   return join($\, @lines) . $\;
}