$b = pack 'I*', 0x12345678;
print join'|', unpack '(B4)*', $b;
0111|0101|0011|0001