Help for this page
$b = pack 'I*', 0x12345678; print join'|', unpack '(B4)*', $b; 0111|0101|0011|0001
$b = pack 'I*', 0x12345678; print join'|', unpack '(A4)*', unpack 'B*', $b; 0111|1000|0101|0110|0011|0100|0001|0010