my (@arr1,@arr2); 
        
    @arr1=<File1>;
    @arr2=<File2>;
        
    foreach my $line1 (@arr1) {
      
    foreach my $line2 (@arr2){
        
    if ($line1 =~ $line2 && $line1 !~ m/^\w+(\W)\w+(.*)/) {
        
    print "$line2\n";`
        
    }
    }
    }