use Regexp::List;
my $search = Regexp::List->new->list2re(keys %repl);