if( !$x && !$y &&  $z or
    !$x &&  $y && !$z or
     $x && !$y && !$z    )
{
    print "Exactly one...";
}