my @fld = /FIELD\w\s*=\s*(\S+)/g;
   print join( ',', @fld ), "\n";