while( <INFILE> ) {
  chomp;
  s/^\s*#.*$//;
  next unless length $_;
  print OUTFILE $_, "\n";
}