#!/usr/bin/perl --
use strict; use warnings;
use XML::LibXML;

my $doc = XML::LibXML->new()->parse_string(
    q{<?xml version='1.0' ?>
<roshambo xmlns="http://example.com/roshambo">
<sham>
<bo name="40" />
<bo name="2" />
</sham>
<sham xmlns:ftt="http://example.com/roshambo">
<ftt:bo name="forty" />
<ftt:bo name="two" />
</sham>
</roshambo>
}
);


for my $name ( $doc->findnodes( q{//*[local-name()="bo"]/@name} ) ) {
    printf "%-25s %s\n", $name->nodePath, $name->nodeValue;
}
print "\n\n";

for my $node ( $doc->findnodes( q{//*[name()="sham"]} ) ) {
    print "@{[ $node->nodePath ]}\n";
## any children    ## ./*
## any descendants ## .//*
## anywhere        ## //*
    for my $name ( $node->findnodes( q{./*[local-name()="bo"]/@name} ) ) {
        printf "%-25s %s\n", $name->nodePath, $name->nodeValue;
    }
    print "\n\n";
}

__END__
/*/*[1]/*[1]/@name        40
/*/*[1]/*[2]/@name        2
/*/*[2]/ftt:bo[1]/@name   forty
/*/*[2]/ftt:bo[2]/@name   two


/*/*[1]
/*/*[1]/*[1]/@name        40
/*/*[1]/*[2]/@name        2


/*/*[2]
/*/*[2]/ftt:bo[1]/@name   forty
/*/*[2]/ftt:bo[2]/@name   two