sub make_regexp {
  my($search_term) = @_;
  my $str_re = join '.*', map "[$_*]", split //, $search_term;
  return qr{$str_re};
}