Help for this page

Select Code to Download

Select or download this

use List::MoreUtils qw( apply );

print OUTFILE apply { s/\s*#.*//; }
              grep  { !/^\s*#/ }
              <INFILE>;