Arrgh, formatting hassle. Apologies for the, err missing bits... maybe if I type:

while (<FP>) {
  s/"(.+?),(.+?)"/\1===\2/g;
  (@row) = split(/,/);
  foreach (@row) {
    s/===/,/g;
  }
}
[download]

it might be clearer.... or perhaps not.