Me again. Does this do what you want?

$t =~ s/(.{39}[^\s]*)\s+/$1\n/;
$t =~ s/([^\n]{60}[^\s]*)\s+/$1\n/g;
[download]

Update: removed unnecessary parens. I don't know what I was thinking when I put them in.