my $len = length($pattern);
for (my $i = 0; i < lenght($str)-$len; $i++)  {
	if (distance( substr ($str, $i, $len), $pattern) < 2)  { print "similar"; }
}