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