in reply to Parsing Text into Arrays..

Apart from that I reversed the sense of your delimiters so ([...]) was for arrays and ({...}) for hashes, which for some reason seemed more natural to me--it's a 1 char change to put it back I think--this appears to handle most stuff I gave it. This includes the structure delimiters embedded with quoted strings but not "'s embedded in "'s. I haven't worked out how to do that (easily) yet.

Sample output

========================================
From ;'([ 1, 2, "([", 0, ([ "internal", "})", 0,({ "key1": "value", "k
+ey2": ([ "value", "array", ]), }), }), "end", ])'

$VAR1 = [
          '1',
          '2',
          '([',
          '0',
          [
            'internal',
            '})',
            '0',
            {
              'key1' => 'value',
              'key2' => [
                          'value',
                          'array'
                        ]
            }
          ],
          'end'
        ];

[download]

The code 

#! perl -slw
use strict;
use Data::Dumper;

my $re_terminate= qr[ \s* (?: : | , | $ ) ]x;
my $re_content    = qr[ \( ( [\[\{] ) (.+) [\]\}]\) $re_terminate ]x;
my $re_ctt        = qr[ \s* \(  (.+)  \) ]x;
my $re_qq        = qr' " ( [^"]+  ) " 'x;
my $re_csv        = qr[ \G \s* (?: $re_qq | $re_ctt | ( [^\s:,]+? ) ) 
+$re_terminate ]x;

sub build_structure{
    my (@bits, $reftype);
    $_[0] =~ s[$re_content]
        [
            $reftype = $1;
            my ($content) = $2 =~ m[^ \s* (.+?) ,? \s* $]x;
            while( $content =~ m[$re_csv]gc ) {
                my $chunk = $1||$3||$2||'0';
                push @bits,
                    $chunk =~ m|^[\[\{].+[\]\}]|
                    ? build_structure( "($chunk)" )
                    : $chunk
            }

        ]ecg;
    return $reftype eq '[' ? \@bits : {@bits};
}

while( <DATA> ) {
    chomp;
    print '=' x 40, "\nFrom ;'$_'\n";
    my $ref = build_structure $_;
    print Dumper $ref;
}
__DATA__
([ "value", "array", ])
([ 1, 2, "three", 0, ([ "internal", "array", 0, ]), "end", ])
({ "key1": "value", "key2": "value2" })
({ "key1": "value", "key2": "value2", "key3": ({ "key1": "value", "key
+2": "value2" }), })
([ 1, 2, "([", 0, ([ "internal", "})", 0,({ "key1": "value", "key2": (
+[ "value", "array", ]), }), }), "end", ])

[download]

Interesting problem, almost as if it was designed to be complex:)

Examine what is said, not who speaks.

The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.

In Section Seekers of Perl Wisdom