use warnings;
use strict;
use Data::Dumper;
use Text::Wrap;

$Text::Wrap::columns = 30;

my $col = 'very long string right here ya know';
my @cols = split /\n/, wrap('', '', $col);

print Dumper(\@cols);

__END__

$VAR1 = [
          'very long string right here',
          'ya know'
        ];