use Text::Wrap qw(wrap $columns); $columns = 70; print wrap('', '', @text); [download]
In reply to Re: Word wrap by btrott in thread Word wrap by Anonymous Monk