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

##</code><code>##

  ($s) = $_ =~ m/^\s*[^,]+,[^,]*,[^,]*,\s*([^,]+)\s*,/o;
  #  "$s" now contains the contents of field #4

##</code><code>##

  $s =~ s/^\s+|\s+$//g;