print "\nNODEVALUE: ", $_->XML::DOM::CharacterData::getData for @nodes;
print "\nTOSTRING: ", $_->toString, "\n" for @nodes;