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