$parser = XML::LibXML->new;	
	$dom = $parser->parse_file($file);
	
	$root = $dom->getDocumentElement;
	$dom->setDocumentElement($root);
	

	my $xc = XML::LibXML::XPathContext->new($file);
	my @nodes=$xc->findnodes('//Article//Part//Sect//H5[ contains(.,"Include")]',$dom);



if (@nodes)
{
$count = $xc->findvalue('count(//Article//Part//Sect//LI)',$dom);
	print $count;
}