if($seqR =~m/\G([A-Z]{3,7})+?$_/g) { #print "All repeated sequences $_\n"; }; #### while($seqR =~m/([ATGC])\g1{2,6})+/g) { my $position = pos; print "$& found at $position\n" };