my ($list) = $test =~ /\[ ( [^\]]+ ) \]/x;