$ perl -MText::Levenshtein=distance -e'print distance( "foo bar baz","fooo bar baz"),$/'
1
$