$ perl -e 'printf "%02b", ord($_) - ord("a") for split //, "abcd"' 00011011