$ perl -le 'print for map chr, unpack "c*", unpack "b*", chr(0x37)'