Select Code to Download

  while (<>) {
      chomp;
      s/ //g;
      tr/a-z/A-Z/;
      } if (/^GRD/) {

  while ( ... ) { ... }
  if ( ... ) { ... }

  while ( ... ) {
      ...
...
          ....
      }
  }

    my @GRD = split /,/;
    warn "line $.: wrong number of attributes\n"
...
        return if grep { $GRD eq $_ } @GRDF;
        print "line $.: \"$GRD\" is invalid in column $col\n";
    }