Select Code to Download

perl -wpe 's{[a-z ]}{"% etianmsurwdkgohvf%l%pjbxcyzq"=~/\l$&/;(unpack"
+ +B8",pack"C",@-)=~/0+1(.*)/;($x="$1")=~y/01/.-/;$x}gie'

#!/usr/bin/perl
#
...
    printf "%08b %s\n", $idx + $step, $chars[$idx-1];

}