my $hl = (1+length) >> 1;
tr/0// == $hl and tr/1// == $hl and index $_, '10' < 0