# untested
my $target = "abcdef";
my $distance = 1;

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