use warnings;
use strict;
use XML::Rules;
use Data::Dump;

my $parser = XML::Rules->new(
		stripspaces => 3|4,
		rules => [ _default => 'raw' ],
	);

dd $parser->parse(<<'ENDXML');
<xmltop>
	<xmlbody>
		<tag1>jdjdjdjd</tag1>
		<tag2>dkdkkd</tag2>
	</xmlbody>
</xmltop>
ENDXML

__END__

[
  "xmltop",
  {
    _content => [
      [
        "xmlbody",
        {
          _content => [
            ["tag1", { _content => "jdjdjdjd" }],
            ["tag2", { _content => "dkdkkd" }],
          ],
        },
      ],
    ],
  },
]