perl> print unpack '(B8)4', pack 'N', 0b11111111_10101010_01010101_00000000;; 11111111 10101010 01010101 00000000 perl> print unpack '(B4)4', pack 'N', 0b11111111_10101010_01010101_00000000;; 1111 1010 0101 0000