Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

open my $WORDLIST, '<', './wordlist.txt' or die $!;
...
    my $sorted = join '', sort split '';
    say if $sorted =~ /^$available$/io;
}

Select or download this
```
abe
ace
aced
...
fad
fade
fed
```