if ($field1 =~ /^(.*?)(\([^)]*\))$/)
  {
    print OUTFILE_B "$1\t$2\t";
  }