my $only_one = ($x || $y || $z) && (! ($x && $y)) && (! ($y && $z)) && (! ($z && $x));

my $only_one = (! ($x && $y && $z)) && ($x ^ $y ^ $z);