Select Code to Download

my %activ  = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_fil
+e $activin; # Line 20
my %antiox = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_fil
+e $antioxin; # Line 21
...
    push @toxinline, "$1 | $2 | $toxin{$1}\n" if $toxin{$1};  # Line 2
+8

}

for my $file (qw/Activator-PFAM.txt AntiOxidant-PFAM.txt Toxin-PFAM.tx
+t/){
     for(read_file $file){
         say "No Match in File: $file; Line: $_" if !/(.+)\s+\|\s+(.+)
+/;
     }
 }

No Match in File: test2.txt; Line:

my %data = map {s/\.\d+//g; /(.+)\s+\|\s+(.+)/ and $1 => $2 } grep /\S
+/, read_file $test2;