Select Code to Download

#!/usr/bin/perl
use Modern::Perl;
use File::Slurp qw/read_file write_file/;
...
write_file $activout, @activline;
write_file $antioxout, @antioxline;
write_file $toxinout, @toxinline;

Q6GZX4 | PF04947.9
Q96355 | PF01486.12 PF00319.13
Q96356 | PF01486.12 PF00319.13
...
Q6W4T3 | PF00501.23 PF00668.15 PF00550.20
B4YPW6 | PF01486.12 PF00319.13
Q8GTF5 | PF01486.12 PF00319.13

O59734 | Name=smf1; ORFNames=SPBC3E7.14, SPBC4F6.01
Q97W02 | Name=dbh; Synonyms=dpo4; OrderedLocusNames=SSO2448
B0JTM2 | Name=trpC; OrderedLocusNames=MAE_45030
...
Q4L4T4 | OrderedLocusNames=SH2032
B7I359 | Name=rplL; OrderedLocusNames=AB57_0368
B2HII2 | Name=leuD; OrderedLocusNames=MMAR_1727