for (0..length($str)-$len_of_match)
{
  if(Text::Levenshtein::distance(substr($str, $_, $len_of_match), matchstring) <= $differences_limit)
     { $found = true; last }
}