c:\@Work\Perl\monks>perl  -MO=Deparse,-p  -i -n -le
"/apple/||print
"
BEGIN { $^I = ""; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined(($_ = <ARGV>))) {
    chomp($_);
    (/apple/ or print($_));
}
-e syntax OK