## no critic (LeadingZeros)
my $mode = $sb[2] & 0777;
## use critic
...
## no critic (LeadingZeros)
ok( ! ( $mode & 022 ), "File is not group or world writable" );
## use critic