$ perl -MText::CSV -e'$c = Text::CSV->new(); $c->combine qw/Crosby
 Stills Nash/, q/and sometimes "Young"/; print $c->string, $/'
"Crosby","Stills","Nash","and sometimes ""Young"""
$