Help for this page
$ perl -MO=Deparse,-p -wlne " ! /def/ and print qq{$_}; " BEGIN { $^W = 1; } BEGIN { $/ = "\n"; $\ = "\n"; } ... (/def/ or print("$_")); } -e syntax OK