Select Code to Download

#!/usr/bin/perl

...
say $edits;

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

$ perl test.pl
4
...
kkkkkkkkkdkrrrkkkkkkkkkk
7
$