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

##</code><code>##

use Text::Levenshtein qw/distance/;
sub off_by_one {
    1 == distance("foo bar baz", shift);
}