use strict;
use XML::Rules;

my $filter = XML::Rules->new(
style => "filter",
rules => {
  priority => sub { 'priority' => $_[1]{_content}+1 },
});

$filter->filter(\*DATA, \*STDOUT);