use Modern::Perl;

my $mode = 33188;
my $modeResult = sprintf '%04o', $mode & 07777;

say $modeResult; # prints 0644