perl -ne "print if /expression/" filename