Select Code to Download

my $charclass = "aeginrt";
my $num = 9;
if (/^[$charclass]{$num}$/) {
# rest of code here

my %num_letters = ( a => 1,
                    e => 2,
...
    print "Found $word\n";
}
close DICT;