#! perl -slw use strict; my $n = 0x80061861; my $top14 = ( $n & 0xfffc0000 ) >> 18; my $nxt6 = ( $n & 0x0003f000 ) >> 12; my $mid6 = ( $n & 0x00000fc0 ) >> 6; my $bot6 = ( $n & 0x0000003f ); print "$n => $top14 : $nxt6 : $mid6 : $bot6"; __END__ C:\test>bit 2147883105 => 8193 : 33 : 33 : 33