my $x=160; # 128 + 32
my $y=32;

print ($x & (~ $y));
_ _END_ _
128