$ perl -e 'printf "$_ => %b\n", ord($_) for qw( A B C @ )'
A => 1000001
B => 1000010
C => 1000011
@ => 1000000