while ($line = <INPUT>){
         $line =~ s/,/|/g unless ($line =~ /,\"(.*),(.*)\",/);
}