my $xc = XML::LibXML::XPathContext->new;

my $count = $xc->findvalue('count(//Article//Sect//LI|//Article//Sect//Part//LI|//Article//Part//Li)', $dom);
print "$count list nodes found.\n" if $count;