Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use File::Slurp qw/read_file write_file/;
...
}

write_file $activout, @lines;

Select or download this

Q197F8 IIV3-002R PF04947.9
Q91G88 IIV6-006L PF01486.12 PF00319.13