Select Code to Download

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

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