in reply to How can I split a line on word boundaries closest to a certain length?
use Text::Wrap qw(wrap 140 'wrap'); @strings = split/\n\n/, wrap($text); [download]