#!/usr/bin/perl

use feature qw/say/;
use warnings;
use strict;
use Text::Levenshtein;
use Text::Fuzzy;
use Text::WagnerFischer;

my $old = "This is an old question.";
my $new = "This is a new question.";

say Text::Levenshtein::distance($old, $new);

my $tf = Text::Fuzzy->new($old);
say $tf->distance($new);

my ($distance, $edits) = Text::Fuzzy::distance_edits($old, $new);
say $edits;

say Text::WagnerFischer::distance([0, 1, 999], $old, $new);