You can use String::Approx to do some fuzzy matching. You'll still need a dictionary of good words, but it does seem to work fairly well.