my $perm = 33092;

printf "%o\n", $perm & 07777;   # prints 504