sub {
    my $line = shift;
    $line =~ s/\r$//;
    $line =~ s/"(.)/""$1/g;
    $line =~ s/"?,"?/,/g;
    return $line;
  }