Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my @var = split (/[\[\],]/, $var);
print "@var";