#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11132707
use warnings;

my $letters = 'otrwreh';
my $have = '...w';                     # NOTE: using . instead of -

my $pattern = join '', map "$_?", sort split //, $letters;
my $regex = qr/^$pattern$/im;
print "regex: $regex\n\n";

@ARGV = '/usr/share/dict/words';

/^$have$/i && (join '', sort /./g) =~ $regex && print while <>;

##</code><code>##

regex: (?^mi:^e?h?o?r?r?t?w?$)

thew
trow