Select Code to Download

  push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};
    push @antioxline, "$1 | $2 | $antiox{$1} \n" if $antiox{$1};
    push @toxinline, "$1 | $2 | $toxin{$1} \n" if $toxin{$1};

if ($1 eq "E7F888"){print $2;}

next unless /(E7F888)\s+.+=([^\s]+)/;
 push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};

print @activline;

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