Select Code to Download

__DATA__
  <!-- Dog section -->
...
    <property name="size" value="big" />
    <property name="location" value="canada" />
  </object >

#!/usr/bin/perl -w
use strict;
...
);
my $xr = XML::Rules->new( rules => \@rules, stripspaces => 2 );
$xr->parsefile($File);