while (<INFILE>) {
  next if /^#/;
  print OUTFILE $_;
}