Re: How to split a string into two lines, intelligently

[Andrew Coolman]

This one might work if the characters are separated by spaces:

@arr = split (/\s/,$string);
$part1 = ();
$part2 = ();
$len = 0;
while (($len += 1 + length($part = shift @arr)) < 50)
{
  $part1 .= "$part ";
}
$part2 = join(' ', @arr);

Regards,