Select Code to Download

<?xml version="1.0" encoding="Windows-1252"?>
<App>
...
<node name="3rd node" text="Text of 3rd node" />
...
</App>

1st node: Text of 1st node
2nd node: Text of 2nd node
    subnode A: Text of subnode A
    subnode B: Text of subnode B
3rd node: Text of 3rd node

foreach my $node (@{$data->{node}}) {
    print $node->{name}.": ".$node->{text}."\n";
...
        }
    }
}