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