Select Code to Download

use Text::WagnerFischer "distance";
use List::Util 'min';
...
    substr($a,-$n), substr($b,0,$n),
    distance(substr($a,-$n), substr($b,0,$n))
}