$ perl -le'print ord pack "B*", "00000001"' 1 $ perl -le'print ord pack "b*", "00000001"' 128