my $test = "[1,2,3]";

my @var = $test =~ /[^][,]+/g;

print Dumper \@var;