use strict;
use XML::Rules;

my $parser = XML::Rules->new(
	rules => {
		_default => 'content',
		'asset,account' => 'as array no content',
		'data' => 'pass no content'
	}
);

use Data::Dumper;
print Dumper($parser->parse(\*DATA));