while($_=~m/(A\w\w[[CGT]TG|AT[ACT]|A[ACG]G]G)/g){
print pos($_),"\t",$1,"\n";
}