#!/usr/bin/perl -n

# filters out (sifts) no-op lines from stdin/files

use warnings;

next if m/^\s*#/;	# skip comments
next if m/^\s*$/;	# skip blank lines
print;