qwurx [shmem] ~> perl -MO=Deparse,-x -wlne '! /def/ and print "$_";'
BEGIN { $^W = 1; }                   # this is -w
BEGIN { $/ = "\n"; $\ = "\n"; }      # this is -l
LINE: while (defined($_ = <ARGV>)) { # and here is what -n does...
    chomp $_;                        # this belongs to -l
    print "$_" unless /def/;
}                                    # this belongs to -n too
-e syntax OK