use XML::Rules;

my @rules = (
  'm:properties' => sub {
    my $p = $_[1];
    print "Title      : $p->{'d:Title'}\n";
    print "Description: $p->{'d:Description'}\n";
  },
  _default => 'content',
);

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

$xr->parse($xml);