use Text::Wrap qw(wrap $columns);

$columns = 70;
print wrap('', '', @text);