use Text::Wrap qw(wrap 140 'wrap');

@strings = split/\n\n/, wrap($text);