#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::Util qw( min );

sub editDistance{
    my ($str1, $str2, $m, $n) =  @_;

    return $n if $m == 0;
    return $m if $n == 0;

    return editDistance($str1, $str2, $m-1, $n-1)
	if substr($str1, $m, 1) eq substr($str2, $n, 1);

    return 1 + min ( editDistance($str1, $str2, $m, $n-1), #insert
		     editDistance($str1, $str2, $m-1, $n), #remove
		     editDistance($str1, $str2, $m-1, $n-1) ); #replace
}

my @pairs = ( [ "Sundayyy", "Saturday" ],
	      [ "sunday", "saturday" ], );

for my $ar (@pairs) {
    my ($str1, $str2) = @$ar;
    say editDistance($str1, $str2, length($str1), length($str2)) . " <$str1:$str2>";
}

__END__

$ perl test.pl
5 <Sundayyy:Saturday>
3 <sunday:saturday>