# Oh yeah… i do plan on cleaning up the look-and-feel for
# this test script. My goal in throwing the t(), and
# tsoundex() code in was to let me be lazy. Unfortunately the
# code on the bottom is nasty.
# When i have time… when i have time… :-)

Source: Direct link to the source code
Software: Text-Soundex
Programming language: Perl