use strict;
use warnings;
use Data::Dumper;

my $test="[1,2,3]";
my @var = split(/[\]\[,]/,"[1,2,3]");
print Dumper \@var;