my @data = split /\[|\],?\s*\[?/, $text;