use warnings;
use strict;
my $str  = 'abcdefghijklmnopqrstuvwxyz';
my $size = 10;
my @subs = map substr($str, $_*$size, $size), 0..(length($str)-1)/$size;
print join("\n", @subs), "\n";