my $string = q("one","two","three");
my @array = split( /"(?:,")?/, $string );

##</code><code>##

 my @array = split( /(?<!^)"(?:,")?/, $string );

##</code><code>##

 my @array = qw( "one two three );

##</code><code>##

   $array[0] =~ s/^"/;