my $search = do
   {
       local $" = q{|};
       qr{\b(@{ [ keys %repl ] })\b};
   };