$ perl -Mstrict -Mwarnings -e '
    use XML::Rules;
    use Data::Dumper;
    my @xml = qw{<some_tag> some content </some_tag>};
    my $parser = XML::Rules::->new(
        rules => [ _default => sub {$_[0] => $_[1]->{_content}} ]
    );
    for (@xml) {
        $parser->parse_chunk($_);
    }
    my $data = $parser->last_chunk();
    print Dumper $data;
'
$VAR1 = {
          'some_tag' => 'somecontent'
        };