Select Code to Download

(?<![,])"(?![,])

#!/usr/bin/env perl
my $test = '""crosby"","stills","nash","and sometimes "young""';
...
__END__
""""crosby""","stills","nash","and sometimes ""young""""
""som""ething","sil""ly","quo""ted""

$test =~ s/^"(.*)"$/$1/g;