my @fld = split /\s*FIELD\w = /;
   shift @fld; # Zap empty first field
   print join(",",@fld ),"\n";