Maybe Text::Soundex is useful

That looks very useful and the sort of thing I was searching for. The Synopsis looks promising.

Thank you