$mode = sprintf '%04o', $mode & 07777;
if($mode >= 0755) { [...] }