if ($num % $divisor) { # does not divide cleanly } else { # does. }