Структура всех программ будет одинакова:

Perl
sub levenshtein
{
	my ($a, $b)=@_;
	…
}

my ($a, $b)=@ARGV;
utf8::decode($_) for $a, $b;
print 1-levenshtein($a, $b)/(length($a)+length($b)), "\n";

Прежде всего определяется процедура levenshtein, которая делает главную работу — вычислает расстояние Левенштейна между двумя строками, передаваемыми её как параметры. Затем она вызывается для двух строк, указанных в командной строке запуска программы. На основе найденного процедурой расстояния вычисляется мера сходства строк, которая отправляется на печать.

Перед вызовом процедуры levenshtein передаваемые ей строки $a и $b проходят дополнительную обработку: для каждой вызывается встроенная процедура utf8::decode, которая преобразует строки из октетной формы в символьную. После этой подготовки строки $a и $b будут кассматриваться как составленные из символов, а не из октетов, что обычно и требуется.

Perl
if(length($a) and length($b))
{
	if(substr($a, 0, 1) eq substr($b, 0, 1))
	{
		return levenshtein(substr($a, 1), substr($b, 1));
	}
	else
	{
		my $da=levenshtein(substr($a, 1), $b);
		my $db=levenshtein($a, substr($b, 1));
		return 1+($da<$db? $da: $db);
	}
}
else
{
	return length($a)||length($b);
}

Perl
my @bellman;
my $la=length $a;
my $lb=length $b;

$bellman[$_][0]=$_ for 0..$la;
$bellman[0][$_]=$_ for 0..$lb;

Perl
for my $j(1..$lb)
{
	for my $i(1..$la)
	{
		$bellman[$i][$j]=$bellman[$i-1][$j]+1;
		$bellman[$i][$j]=$bellman[$i][$j-1]+1
			if $bellman[$i][$j]>$bellman[$i][$j-1]+1;

		if(substr($a, $i-1, 1) eq substr($b, $j-1, 1))
		{
			$bellman[$i][$j]=$bellman[$i-1][$j-1]
				if $bellman[$i][$j]>$bellman[$i-1][$j-1];
		}
	}
}

Perl
return $bellman[$la][$lb];