$ perl -E 'say unpack q{b*}, pack q{N}, 0x01020304;'
10000000010000001100000000100000

##</code><code>##

$ perl -E 'say unpack q{B*}, pack q{N}, 0x01020304;'
00000001000000100000001100000100

##</code><code>##

7, -1, 6, -1, 7, -2, 5, -1, 2