my $re = join '|', map { quotemeta $_ } keys %dict;