for(qw;
a01001010 b01111100 c01011111 d00110101 e01110100 f00110100
g01011100 h00110000 i00101101 j00110011 k01010010 l01010000
m01110010 n01001000 o00111110 p00111100;){/(\w)(\d+)/;$g{$1}=$2}
for(split//,q;abcbdeqfbgbhebibjkqljmbqnfophk;){print
$g{$_}?pack"B8",$g{$_}:' '}