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