- or download this
$i=0;
$line = join '', grep { $i++ % 2 ? {s/,/ /g} : 1} split /"/,$line;
- or download this
while(<DATA>) {
print;
$i = 0;
...
one,"two,three,five",four
"one,two",three
one,two,"three,"
- or download this
one,two,three
one,two,three
...
one,two,"three,"
one,two,three