Help for this page

Select Code to Download

Select or download this

print OUTFILE map  { my $s = $_; $s =~ s/\s*#.*/; $s }
              grep { !/^\s*#/ }
              <INFILE>;