Select Code to Download

use Data::Dumper;
my @els = '[1,2,3]' =~ /(\w+)/g;
print Dumper \@els;

$VAR1 = [
          '1',
          '2',
          '3'
        ];