( join '', sort $newtiles =~ /\w/g ) =~ /^$tilepat$/
        and push @found, $match;