my @record = split( /,/);
  my $field4 = $record[3];
  $field4 =~ /^\s*//;
  $field4 =~ /\s*$//;