Help for this page
for(qw; a01001010 b01111100 c01011111 d00110101 e01110100 f00110100 ... m01110010 n01001000 o00111110 p00111100;){/(\w)(\d+)/;$g{$1}=$2} for(split//,q;abcbdeqfbgbhebibjkqljmbqnfophk;){print $g{$_}?pack"B8",$g{$_}:' '}