# $m      = 5
# $a      = "ABCDEFGHIJKL"
# $b      = "ACHDEFIHAJLK"
# $diff   = 0
# $xor_ed = "\000\001\013\000\000\000\016\000\010\000\007\007"

sub mdiff {
  my ($m,$a,$b) = @_;
  my ($la,$lb) = (length $a, length $b);
  my $xor_ed;
  my $diff = abs($lb - $la);

  return 1 if $diff >= $m;
  return 1 if ($diff + ($xor_ed = $a ^ $b) =~ tr/\0//c) >= $m;
}