$i=0; $line2 = join '', map{ $i++ % 2 && s/,/ /g; $_ } split /"/,$line;