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