Select Code to Download

my $d = "16895";
my $f = "33206";
...
my $l43b = $d & oct(70); # still 6 bits though,
$l43b  = $l43b >> 3;
print "$od and oct(70) shifted 3 bits to the right = ",sprintf("%o",$l
+43b)," in octal\n";

16895->40777
33206->100666
...
33188->100644
lowest three bits of octal 40755 is 5
40755 and oct(70) shifted 3 bits to the right = 5 in octal