Select Code to Download

$ perl -MO=Deparse -E'say !1; say ~~(!1); say ~~("");'
use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch'
+, 'unicode_strings', 'unicode_eval';
...
say 0;
say '';
-e syntax OK