Select Code to Download

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

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