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

##</code><code>##

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

##</code><code>##

my $empty;
my ($empty,@var) = ...;

##</code><code>##

(undef, my @var) = ...;