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