my ($list) = $test =~ /\[ ( [^\]]* ) \]/x;
my @var = split /,/, $list;