@record = split( /\s*,\s*/o, $_, 5);
  $field4 = $record[3];