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