Select Code to Download

 
my $test="[a,b],c,'d',[e,[f,g,h,[i,j],k,l],m,n],o,p";

@array = (
           [a, b], 
...
           [e, [f, g, h, [i, j], k, l], m, n], 
           o,
           p);