use XML::Filter::Dispatcher qw ( :all );
use XML::SAX::Machines qw( Pipeline );

sub run { Pipeline( shift )->parse_string( <<XML_END ) }
<stooges>
  <stooge name="Moe" hairstyle="bowl cut">
    <attitude>Bully</attitude>
  </stooge>
  <stooge name="Shemp" hairstyle="mop">
    <attitude>Klutz</attitude>
    <stooge name="Larry" hairstyle="bushy">
      <attitude>Middleman</attitude>
    </stooge>
  </stooge>
  <stooge name="Curly" hairstyle="bald">
    <attitude>Fool</attitude>
    <stooge name="Shemp" repeat="yes">
      <stooge name="Joe" hairstyle="bald">
        <stooge name="Curly Joe" hairstyle="bald" />
      </stooge>
    </stooge>
  </stooge>
</stooges>
XML_END

my $count;

run(
  XML::Filter::Dispatcher->new(
    Rules => [
      'stooge' => sub { ++$count },
      'string( stooges/stooge/attitude )' => sub { print xvalue(),"\n"; },
    ],
  )
);