my $dna = 'accatgagctgtacgtagcatctgagcgcgcatgactgtgactgacgtaggcagca';
my $increment = 3;
my $substr = 10;
my @windows = $dna=~/(?=(.{$substr})).{$increment}/gs;
print "$_\n" for @windows;