If the strings don't contain commas then you could:

my $string = q("one","two","three");
my @array = map {s/^['"](.*)['"]$/$1/ ? $1 : $_} split ',', $string;

print "@array";
[download]

Prints:

one two three
[download]