or download this
$dom = $parser->parse_file($file);
my $expr = ('//Article//Main//Sect//H3[contains(.,"Include")]|//Articl
+e//Main//Sect//H4[contains(.,"Include")]|//Article//Main[contains(.,"
+Include")]//*[name()="LI"]');
...
foreach $nod(@nodes) {
print "element: ".$nod->nextNonBlankSibling();
}