Select Code to Download

#!/usr/bin/env perl -l

...
        print "ID $_->[0] not in filter";
    }
}

ID id1 in filter
SEQ seq1 in filter for ID id1
ID id2 not in filter
ID id3 in filter
SEQ seq4 not in filter for ID id3