while ($dna =~ /(?=A.{500}T)./g) {
     print "Got an AT match at position ", pos $dna, "\n";
}