Yes, but that code was specifically written for "a Perl that doesn't support 64-bit ints (Q)." The bitwise ops (i.e. "&") currently require native integer arguments, and those can be at most 0xFFFFFFFF in such a Perl.