sub f{my@c=qw[00700 00001 00000 75557 11111 71747 71717 55711
74717 74757 71111 75757 75717];my@l,$i;map{$l[$i++%5].=join''
,(unpack("B8",chr)=~/(.)(.)(.)$/)[0,1,1,2],' '}map{ split //,
$c[ord($_)-45]}split//, pop;$_=join'',map{"$_\n"}@l[0,1,1,2,3
,3,4];tr/01/ X/;$_}

print f(1/256);
