perl -nle 's/#.*//; print if /\S/'