perl -nle"/^#/ or print" infile > outfile