use XML::Rules;
my $parser = XML::Rules->new(
 rules => {
  message => sub {
    print $_[1]->{author}, "\n\n";
   }
 }
);
$parser->parse('pm.xml');
[download]

Oh, you wanted XPath, never mind ;-)