while($k=~ /[AG]TG.*T[AG][AG]/ig){$GENE++}

##</code><code>##

while($k=~ /([AG]TG.*T[AG][AG])/ig){$GENE++; print "$1\n";}