perl -ne '/^#/ or print'

perl -pe '$_ = "" if /^#/'

perl -pe '$_ x= !/^#/'