my $search = join "|", map { qr-\b\Q$_\E\b- } keys %repl;