#!/usr/bin/perl -w

my $line = "Yes, generally with split you want to throw out the delimiter, when you put capturing parenthesis around the split pattern they are retained, which is why it worked. But substr (or maybe unpack) is better suited for this purpose since you are not really splitting your text up by a pattern or delimiter.";

my @stringChunksArray = ($line =~ m/(.{1,60})/gs);

for($i=0;$i<@stringChunksArray;$i++){
    print $stringChunksArray[$i]."\n";
}
