Select Code to Download

$searches,
# An arrayref of hashrefs like:
...
#    regex        => # USE PERL REGULAR EXPRESSION (BOOLEAN): VOIDS OT
+HER OPTIONS ABOVE
#    yn           => # WHETHER TO MATCH (YES) OR NOT (NO) (BOOLEAN)
# }

( $ch, $noreplace )= resetBadBooleans( $ch, $noreplace );
for my $search (@$searches) {
...
    $search->{$_}= resetBadBooleans($search->{$_});
  }
}

my @bool_keys= qw( case wholeword startverse endverse flexdelimit rege
+x yn );
@{$_}{@bool_keys}= resetBadBooleans(@{$_}{@bool_keys})
  for @$searches;

$regex= composeRegex($search->{case}, $search->{wholeword}, $search->{
+startverse}, $search->{endverse}, $search->{flexdelimit}, $search->{d
+elimitchars}, $search->{regex}, $search->{comp})

$regex= composeRegex($search);

...
      = @{$search}{qw( case wholeword startverse endverse flexdelimit 
+delimitchars regex comp )};
  ...
}