use strict; 
use warnings; 

use Text::Wrap qw(wrap $columns $huge);
$columns = 40;
$huge = 'wrap';

my $text = 'break up this really long sentence for me please';
print wrap('', '', $text);

__END__

break up this really long sentence for
me please