Text::Levenshtein (which also has an XS version) will give the "edit distance" between two strings. There are several other modules that you could consider, including Text::PhraseDistance (which takes into consideration word order within the string) and String::Approx. Search CPAN - I'm sure there are others.

HTH