If you want to wrap text, there are modules, such as Text::Wrap.
For your particular example, is it supposed to be wrap at the first whitespace after the 39th character, and then at the first whitespace after the 60th character of each subsequent line?
The PerlMonk tr/// Advocate
Comment on Re: adding newline to middle of a string cleanly