You might want to look at Text::Wrap.
In reply to Re: break up text string into 70 character long tokens by gwadej in thread break up text string into 70 character long tokens by chuckd