Select Code to Download

$olds='one,two,"three,four,five","six",seven,"eight,nine"';
$i = 0;
$news = join '', grep { $i++ % 2 ? {s/,/ /g} : 1 } split /"/,$olds;
print $news . "\n";

one,two,three four five,six,seven,eight nine