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