Select Code to Download

$threshold = "N" # see description above
for($i=1;$i<=6;$i++) {
my $pattern = "." x $i;
while ($sequence_string =~ /($pattern)\1{$threshold,}/g) { .... }
}

$i = 1;
while ($i < $genome_length)
...
   }
   $i = (end of previous match + 1)
}