As TIMTOWTDT me too I suggest to switch module: to XML::Twig. As noted by tangent you need a Root node, and you need the equal sign between attributes and their values.

I'm not an expert, but please look at the linearity of handlers (subs called during the parsing, called when an xpath match) usage:

use warnings;
use strict;
use XML::Twig;

my $xml=<<'XML';
<Root>
<A >
  <B>B value</B>
    <C>
        <D d_attribute="d_attribute_value">D_Value</D>
    </C>
</A >
<A>
  <B>B value</B>
    <C>
        <D d_attribute="d_attribute_value">D_Value</D>
    </C>
</A>
</Root>
XML

my $twig= new XML::Twig(
                          pretty_print => 'indented',
                          twig_handlers => {
                                             '/Root/A/B' => \&field_B,
                                             '/Root/A/C/D' => \&field_
+D,
                          },
);

$twig->parse( $xml);

sub field_B
  { my( $twig, $field)= @_;
       print 'Value of B is: '.$field->text."\n";
 }
sub field_D
  { my( $twig, $field)= @_;
       print 'Value of D is: '.$field->text."\n";
 }
[download]

hth
L*