Select Code to Download

use Math::BigInt;

...
my $mask    = '0x100000000f00000000000000000000f0';

print Math::BigInt->new($mask)->band($operand)->as_hex(), "\n";

my $anded = Math::BigInt->new($mask) & $operand;
print $anded->as_hex(), "\n";