#!/usr/bin/perl

# https://perlmonks.org/?node_id=11105638

use strict;
use warnings;
use Path::Tiny;

my @letters = split //, 'aaaaaaaaabbccddddeeeeeeeeeeeeffgggghhiiiiiiiiijkllllmmnnnnnnooooooooppqrrrrrrssssttttttuuuuvvwwxyyz';
my @tiles = @letters[map rand @letters, 1 .. 9];
print "tiles: @tiles\n";
my $pattern = join '', map "$_?", sort @tiles;

my @matches = grep join('', sort split //) =~ /^$pattern$/,
  grep /^[@tiles]{2,}\z/ && /[aeiouy]/,        # lc, size & vowel
  path('/usr/share/dict/words')->lines({chomp => 1});
print "\nmatches:\n\n@matches\n";