my @p = split //, $pattern ;
  my %deny_letters = map { $_ => 1 } @p ;