use lib 'lib'; use strict; use warnings; use 5.010; use Text::Levenshtein::Damerau qw/edistance/; use charnames ":full"; use utf8; say edistance("e\N{LATIN SMALL LETTER DZ DIGRAPH}gar", 'edgar'); # output: 1