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