perl -le 'print pack "B*", pop' 0100100001101001