#!/usr/bin/perl -w


open(FH, "<File1.txt") || die "Cannot open file";

%href;
while( FH> )
{
    chomp($_); 
    $href{$1} = $2 if $_ =~ /(\S+)\s+(\S+)/;
}
while (my ($key, $value) = each(%href)) {

              #print $key. ", ". $value."\n";

      }
close FH;

open(FD, "<File2.txt") || die "Cannot open file";

while(<FD>)
   {
           chomp;

           next unless ( s{  \s+(\w+)\s+\([A-Z]\)\s+\(\d*%\)\s+\d\s+\+\s[+-]?\d+}{}xms and exists( $href{$1} ));
           my $name = $1;
           print "$name\t\t$href{$name}\n";
           #@_=split('\t',$_);
   }