#!/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 %activ = map { s/\.\d+//g; /(.+)\s+\|\s+(.+)/ and $1=>$2; } grep/\|\s+\S+/,read_file $activin;
for ( read_file $uniprot ) {
	next unless /(.{6})\s+.+=([^\s]+)/;
	print $1,"\n"
	 if $activ{$1};
}
print "done";