The String::Approx package can calculate the "edit distance" (number of edits to change one string to another).

use String::Approx 'adist';
$dist = adist("pattern", $input);
[download]