Select Code to Download

while (defined( my $line = <UNIPROT> )) {
    if ($line =~ /^(AC|OS|OX|ID|GN)\s+(.*)/) {
...
<GN> Name=ARF1; Synonyms=ARF, PLARF;
<OS> Plasmodium falciparum.
<OX> NCBI_TaxID=5833;

#!/usr/bin/env perl
use warnings;
...
    }
    ...
}