% perl -MO=Deparse,-p -ce '($x) ? $z = "true" : $z = "false";' (($x ? ($z = "true") : $z) = "false"); -e syntax OK %