perl -ne "print unless /^#/" infile > outfile