Select Code to Download

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

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