my $re= join "|", map quotemeta($_), keys %repl;