print "B NODES:\n";
print "\t", $_->nodeValue(), "\n"
    for $doc->selectNodes("A/B");
print "\nD NODES:\n";
print "\t", $_->nodeValue(), "\n"
    for $doc->selectNodes("A/C/D");