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