#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;

my $str = '{{Register {{CumulativeActive(calls)(In) 0} {CumulativeSuccessfullyEstablished(calls)(In) 0} {CumulativeSuccessfullyCompleted(calls)(In) 0} {CumulativeUnsuccessful(calls)(In) 0} }}} {{{Make Call} {{CumulativeActive(calls)(In) 0} {CumulativeSuccessfullyEstablished(calls)(In) 0} {CumulativeSuccessfullyCompleted(calls)(In) 0} {CumulativeUnsuccessful(calls)(In) 0} }}} {{Initiating {{CumulativeActive(calls)(In) 0} {CumulativeSuccessfullyEstablished(calls)(In) 0} {CumulativeSuccessfullyCompleted(calls)(In) 0} {CumulativeUnsuccessful(calls)(In) 0} }}} {{Summary {{CumulativeActive(calls)(In) 0} {CumulativeSuccessfullyEstablished(calls)(In) 0} {CumulativeSuccessfullyCompleted(calls)(In) 0} {CumulativeUnsuccessful(calls)(In) 0} }}}';

eval{require Tkx;1} and dd(  dadum( "$str" ) );
dd( t2p( "$str" ) );

sub dadum {
    my @da = Tkx::SplitList( $_[0] );
    for my $d ( @da ){
        if( $d =~ m{\{.*?\}} ){
            $d = dadum( $d );
        }
    }
    return \@da;
}


sub t2p {
    local $_ = $_[0];
    my $last = my $root = [];
    my @prev;
    pos($_)=0;
    while( length > pos ){
        if( m{ \G \s+ }gscx ){
            next; # ignore space
        } elsif( m{ \G \{ }gscx ){
            push @$last, my $new = [];
            push @prev, $last;
            $last = $new;
        } elsif( m{ \G \} }gscx ){
            $last = pop @prev;
        } elsif( m{ \G ( [^\s\{\}]+ ) }gscx ){
            push @$last, $1;
        } elsif( m{ \G (.) }gscx ){
            push @$last, { error => $1 };
        }
    }
    $root
}
__END__