Select Code to Download

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