$bin =~ m{([01]+)};     # untaint input
my $idx = eval "0b$1";