while (!eof(INPUT)) {
   $record = <INPUT>;
   my @records = split(/\|/, $record);
   for (my $i=0; $i<scalar(@records); $i++) {
      if ($records[$i] eq '' || $records[$i] eq "\n") {$records[$i] = undef;} #Setting blank fields to undefined
      else {$records[$i] =~ s/\n//g;} #Clearing endline characters
   }
   $DB->doQuery($report->{insertSQL}, $reportDate, @records);
}