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