perl> print unpack '(B16)2', pack 'N', 0b11111111_10101010_01010101_00000000;; 1111111110101010 0101010100000000 perl> print unpack '(B12)2', pack 'N', 0b11111111_10101010_01010101_00000000;; 111111111010 010101010000