Select Code to Download

>RC|ae000001||99-143
ACGFEHIGJUHIDFHDIHGFHHIIFHIHHFBIHB
...
KLJDJFGJFJDJFKJKJFSJFKDHSHKFJKDJDK
SAJSAJJSDSPIDOSDKSKFKF

foreach my $l (@file)  {
...
}
print $gene;