$ perl -Mstrict -Mwarnings -E ' say q{ 76543210}; say qq{$_ - }, ord, q{ - }, sprintf q{%08b}, ord for qw{ A B };' 76543210 A - 65 - 01000001 B - 66 - 01000010 $