Select Code to Download

my $start = bsearch( \@indices, $pattern );

sub bsearch {
    my( $indices_hv, $pattern ) = @_

    while( 1 < length $str ) {