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