my @var = $test =~ /\d+/g;

##</code><code>##

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