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