#!perl -p
s/^\s*(#.*)?|[ \t]+$//gs