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