Select Code to Download

use XML::Simple;

my $ref = XMLin( $xmlfile);

<root>
 <sub>
...
   <b x="4">blah blah</b>
 </sub>
</root>

use XML::Rules;

...
    rules => XML::Rules::inferRulesFromExample( $XML),
);
my $ref = $parser->parse( $XML);

my $XML = <<'*END*';
<root>
...
my $ref = XMLin( $XML);
print Dumper($ref);
__END__

my $XML = <<'*END*';
<root>
...
);
my $ref = $parser->parse( $XML);
print Dumper($ref);