use strict;
use warnings;

use XML::LibXML qw( XML_ELEMENT_NODE );

sub visit {
    my ($node, $path) = @_;
    $path = '' if !defined($path);

    print("$path: ", $node->nodeName(), "\n");

    $path .= '/' if length($path) && $path !~ m{/\z};

    my @children =
        grep $_->nodeType() == XML_ELEMENT_NODE,
        $node->childNodes();

    visit($children[$_], "$path*[".($_+1).']')
        for 0..$#children;
}

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_fh(*STDIN);
my $root   = $doc->documentElement();

visit($root, '/*');