>perl -le "print(unpack('%32b*', 0x13))"
7

##</code><code>##

>perl -le "print(unpack('%32b*', chr(0x13)))"
3