Text::Fuzzy

Acá hay un mini ejemplo de cómo usar Text::Fuzzy:

#!/usr/bin/env perl
use v5.16;
use warnings;
use Text::Fuzzy;

my $tf = Text::Fuzzy->new("latitude");
say "Levenshtein edit distance is ", $tf->distance("altitude");
$tf->transpositions_ok(1);
say "Damerau-Levenshtein edit distance is ", $tf->distance("altitude");