Select Code to Download

use XML::Rules;

...

my $xr = XML::Rules->new( rules => \@rules );
$xr->parse($xml);

my @rules = (
  "^dict" => sub {
...
  },
  value => 'content',
);