my $re = join '|', map quotemeta, keys %translate;