Select Code to Download

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

print STDOUT "DONE\n";

Q6GZX4 ORFNames=FV3-001R ;PF04947
Q6GZX3 ORFNames=FV3-002L ;PF03003
...
Q6GZX2 ORFNames=FV3-003R 
Q6GZX1 ORFNames=FV3-004R 
Q197F5 ORFNames=IIV3-005L

Q6GZX4 | PF04947.9
Q96355 | PF01486.12 PF00319.13
Q96356 | PF01486.12 PF00319.13
Q39371 | PF01486.12 PF00319.13

D0EYG3 | PF10262.4
E7QVU5 | PF10417.4 PF00578.16
D1JAS4 | PF10417.4 PF00578.16

C7T183 | PF02950.12
C7T1P5 | PF02950.12
E2E4E4 | PF00918.12
A2PU44 | PF01375.12