my $match = "\Q" . join ("\E|\Q", keys %translate) . "\E";