There's Digest::Nilsimsa, which might be worth looking into. I haven't tried it, but it sounds like it's designed to do what you're looking for.