or download this
$ perl -MO=Deparse,-p,-q -E '($x) ? $z = "true\n" : $z = "false\n";
+print $z;'
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'isa', 'modul
+e_true', 'postderef_qq', 'say', 'signatures', 'state', 'unicode_strin
+gs', 'unicode_eval';
(($x ? ($z = "true\n") : $z) = "false\n");
print($z);
-e syntax OK