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

sub c{
  ($_,$m,$n,$a,$d)=@_;

  map{$x=e;

      $_,[grep{e eq$x}@$d]

     }/\b[^ ]{$m,$n}\b/g
}