Win8 Strawberry 5.8.9.5 (32)  Sun 09/05/2021 22:17:31
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings

use Data::Dump qw(dd);

my @words = (  # added a few extra 'words'
'', 'x', 'a', 's', 'aa', 'as', 'es', 'is', 'os', 'sh', 'si', 'so'
);
dd 'WORDS:', \@words;

print "----------------------------\n";

for my $regex (".?a?", "a?.?", "s?.?", ".?s?",) {
    print "Matches for ACTUAL regex pattern : ^$regex\$\n\n";

    foreach my $word (@words) {
        my $sorted = join '', sort split //, $word;
        if ($sorted =~ /^$regex$/) {
            print "'$sorted' -> '$word'  ";
            }
        }

    print "\n----------------------------\n";

    }

^Z
(
  "WORDS:",
  ["", "x", "a", "s", "aa", "as", "es", "is", "os", "sh", "si", "so"],
)
----------------------------
Matches for ACTUAL regex pattern : ^.?a?$

'' -> ''  'x' -> 'x'  'a' -> 'a'  's' -> 's'  'aa' -> 'aa'
----------------------------
Matches for ACTUAL regex pattern : ^a?.?$

'' -> ''  'x' -> 'x'  'a' -> 'a'  's' -> 's'  'aa' -> 'aa'  'as' -> 'as'
----------------------------
Matches for ACTUAL regex pattern : ^s?.?$

'' -> ''  'x' -> 'x'  'a' -> 'a'  's' -> 's'
----------------------------
Matches for ACTUAL regex pattern : ^.?s?$

'' -> ''  'x' -> 'x'  'a' -> 'a'  's' -> 's'  'as' -> 'as'  'es' -> 'es'  'is' -> 'is'  'os' -> 'os'  'hs' -> 'sh'  'is' -> 'si'  'os' -> 'so'
----------------------------