Hash::Case::Preserve looks promising.

I found that with a simple CPAN search.

There is also Super Search where title contains all of "hash", "case":
?node_id=3989;HIT=hash%20case;re=N