Select Code to Download

perl -le'$_=sprintf"%b",pop;s/../$&%8/eg;print'

perl -le'$_=sprintf"%b",pop;s/..(?=(..)*$)/$&%8/eg;print' 31