while(!($csv->parse($line)) || $csv->fields < $COLUMNS) {
    $line =~ s/\r//g;
    $line =~ s/\n$/=0D=0A/;
    $line .= <IN>;
  }