use XML::Rules;

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