Select Code to Download

use String::Approx qw(amatch adist);

...
print "matched\n" if amatch($str1, $str2);
print "matched\n" if amatch($str1, ["5%"], $str2);
printf "distance = %d\n", adist($str1, $str2); # number of edits requi
+red