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