Select Code to Download

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

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

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

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