Select Code to Download

sub e{$a=$_;eval"\$a=~y/\Q$_\E/\0-¦/";$a}

sub c{
...
  map{$x=e;$_,[grep{e eq$x}@d]}
  /\b[^ ]{$n,$a}\b/g
}