Select Code to Download

<code>
if($seqR =~m/\G([A-Z]{3,7})+?$_/g) {
    #print "All repeated sequences $_\n";
};
</code>

while($seqR =~m/([ATGC])\g1{2,6})+/g) {
    my $position = pos;
    print "$& found at $position\n"
};