Select Code to Download

patterns----------------
(
  [0, "..e......."],
...
  [55, "......e..."],
  [55, ".......s.."],
  [66, "..d......."],

      my $underpat = qr/[^@under@tiles]/;
      say "underpat is $underpat";
      my @words = grep {
...
          && !/$underpat/
          && /^$pat$/
          && ( ( $old ^ $_ ) !~ /^\0+\]$/ )    # adding just an 's' no
+t allowed

underpat is (?^u:[^mh h i m q r t])
underpat is (?^u:[^mh h i m q r t])
underpat is (?^u:[^e m e r o i dh h i m q r t])
...
underpat is (?^u:[^dh h i m q r t])
underpat is (?^u:[^dh h i m q r t])
underpat is (?^u:[^dh h i m q r t])

say "new mask is $newmask";
    substr $heights, $pos, length $highs,
      ( $highs & $newmask ) =~ tr/0-4/1-5/r | ( $highs & ~$newmask );