Помогите составить регулярное выражение на PHP

#!/usr/bin/perl

my $s = "Основное {Значение 1|Значение 2|Значение 3 {Значение 3.1|Значение 3.2|Значение 3.3|} Значение 4{Значение 4.1|Значение 4.2|Значение 4.3|} Значение 5} Основное 2";
recursivePrint(parse($s));

sub parse
{
    my $str = shift;
    my $cur = [];
    my @stack = ();
    my $tok = '';

    while($str =~ /(.)/sg)
    {
        my $c = $1;

        if($c !~ /^[{}\|]*$/) {
            $tok .= $c;
            next;
        }

        if($tok ne '') {
            push(@$cur, trim($tok));
            $tok = '';
        }

        if($c eq '{')
        {
            push(@stack, $cur);
            $cur = [];
        }
        elsif($c eq '}')
        {
            if(@stack) {
                my $a = pop(@stack);
                push(@$a, $cur);
                $cur = $a;
            } else {
                last;
            }
        }
    }

    ## Добавлено.
    while(@stack) {
        my $a = pop(@stack);
        push(@$a, $cur);
        $cur = $a;
    }

    return $cur;
}

sub trim
{
    my $s = shift;
    $s =~ s/^\s+|\s$//g;
    return $s;
}

sub recursivePrint
{
    local $level = 0;
    &_recursivePrint;
}

sub _recursivePrint
{
    my($arr) = @_;
    my $suff1 = "\t" x $level;
    $level++;
    my $suff2 = "\t" x $level;

    print $suff1, "{\n";

    foreach (@$arr)
    {
        if(ref $_ eq 'ARRAY') {
            _recursivePrint($_);
        } else {
            print $suff2, $_, "\n";
        }
    }

    print $suff1, "}\n";
    $level--;
}