_... _... ... ##

##

#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

# open DATA, '<', 'stream';

my $enc = ;
my $bot = my $top = ;
$bot =~ s[^<(\w+).*][]s;

my $section = '';
until( ( my $line =  ) =~ m[$bot] ) {
    my( $tag ) = $line =~ m[<(\w+)];
    my $end = "";
    $section .= $line;
    $section .=  until $section =~ m[$end\s*$];
    my $ref = XMLin( $enc . $top . $section . $bot );
    ## do something with this section
    pp $ref;
    $section = '';
}

__DATA__


    _{some stuff}
    _{some stuff}
    _{some stuff}
    _{some stuff}
    _{some stuff}


##

##

C:\test>\perl64-10\bin\perl 995446.pl
{
  "sub" => { name => 1, subsub => "\n           some stuff\n       " },
}

{
  "sub" => { name => 2, subsub => "\n           some stuff\n       " },
}

{
  "sub" => { name => 3, subsub => "\n           some stuff\n       " },
}

{
  "sub" => { name => 4, subsub => "\n           some stuff\n       " },
}

{
  "sub" => { name => 5, subsub => "\n           some stuff\n       " },
}