#!/usr/bin/perl

$_=q;01001010011101010111001101110100 00100000 01100001011011100110111101110100011010000110010101110010 00100000 01010000011001010111001001101100 00100000 01101000011000010110001101101011011001010111001000101100;
;s/(\d+)/pack("B64",$_)/e,print,for(split(/ /)),$/