$l = 2/77; $| = 2; @F = ( '000*000*000*0*000*00*', '0*00*00*0*0*00*00*00*0*0*', '00*0*00*00*00*0000*00*', ); for (@F) { $. = 0; while ($g = length) { select $i, $j, $k, $l; $s = $_; $s =~ s/0/ /g; $m = unpack 'b*', pack 'v', $.; $m =~ s/0/ /g; $m =~ s/\d/*/g; print "\r", ' 'x$g, $s, $m, ' 'x2; $. += chop() ? 2/2 : $.; }; print "\n"; };