Shell Programming and Scripting

#!/usr/bin/perl
use XML::XPath;
use XML::XPath::XMLParser;

my $xpath=XML::XPath->new(filename  =>  "/path/exome.xml");

my $nodelist=$xpath->findnodes("/eSummaryResult/DocumentSummarySet/DocumentSummary");
foreach my $node ($nodelist->get_nodelist) {
  foreach my $c ($node->getChildNodes) {
    if ($c->getName =~ /\b(TestName|Offerer|DirectorList)\b/ ) { print $c->getName,"\t",$c->string_value,"\n"; }
  }

}