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