Help for this page
while($k=~ /[AG]TG.*T[AG][AG]/ig){$GENE++}
while($k=~ /([AG]TG.*T[AG][AG])/ig){$GENE++; print "$1\n";}
www.com | www.net | www.org
No recent polls found