TEXT 1" ##
##

use XML::LibXML;


my $dom = 'XML::LibXML'->load_xml(IO => *STDIN);


foreach my $tu ($dom->findnodes('/doc/body/node')) {
    for my $node ($tu->findnodes('node1')) {
        print "$node\n";
    }
    
}