Select Code to Download

The code -- revised version by GrandFather. 

#!/usr/bin/perl
...
}
close $inFile;
close $outFile;

First input. Variant list. 

A5V
...
V149I
I150T
I152T

and the second input file. 

>gi|134611|sp|P00441.2|_Homo_sapiens
...
>gi|55925004|_Mus_spretus
------------------------------------------------HQYGDNTQGCTSAGPHFNPHS-
+---------------------------------------------------------------------
+---------------
END