You can always try Text::Soundex but you should split your strings up in smaller bits for it to be effective...

use Text::Soundex;
if (soundex($string1) eq soundex($string2)) { print "Bingo!" } else { 
+print "bummer"; }
[download]

String::Approx seems a good solution too... perhaps a better one than Text::Soundex *sniff*

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.