All -- thanks for the insight. I ended up with

 
if ($mode & 07022)
  { ... }
[download]

(I also want to check for setuid/setgid/sticky.) I knew that bitwise was the best way to go, thanks for setting me back on the path.