Select Code to Download

sub hamming {
  my ($x1, $x2) = @_;
...
1
-1
3

# untested
my $target = "abcdef";
...

my $len = length $target;
my $qr  = qr/ \b(\w{$target})\b (?(??{ hamming($target,$1) < $distance
+ }) | (?!))  /x