Select Code to Download

my @list1 = $doc->selectNodes("A/B");
my @list2 = $doc->selectNodes("A/C/D");
...
    }
    print "$B / $D \n";
}

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