sub to_binary {
     my $str = shift;
     my $value = 0;
     for (my $ii=0; $ii<length($str); $ii++) {
         $value = 2 * $value + substr($str, $ii, 1);
     }
     return $value;
}