$ perl -MO=Deparse,-p,-q -E '($x) ? $z  = "true\n" : $z  = "false\n"; print $z;'
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'isa', 'module_true', 'postderef_qq', 'say', 'signatures', 'state', 'unicode_strings', 'unicode_eval';
(($x ? ($z = "true\n") : $z) = "false\n");
print($z);
-e syntax OK