#!/usr/bin/perl
use Modern::Perl;
use File::Slurp qw/read_file write_file/;

my $uniprot     = 'uniprot-sfinal.txt';
my $activin    = 'Activator-PFAM.txt';
my $antioxin = 'AntiOxidant-PFAM.txt';
my $toxinin= 'Toxin-PFAM.txt';




my $activout = 'ActivACNPF.txt';
my $antioxout= 'AntioxACNPF.txt';
my $toxinout= 'ToxinACNPF.txt';
my @activline;
my @antioxline;
my @toxinline;

my %activ  = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $activin;
my %antiox = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $antioxin;
my %toxin  = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $toxinin;
for ( read_file $uniprot ) {
   /(.{6})\s+.+=([^\s]+)/;
    
    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};

}
write_file $activout, @activline;
write_file $antioxout, @antioxline;
write_file $toxinout, @toxinline;