[0] Perl> print unpack 'B8', chr(65);;
01000001

[0] Perl> print unpack 'b8', chr(65);;
10000010