Select Code to Download

#!/usr/bin/perl

use strict;    # https://perlmonks.org/?node_id=11116556
...
sub expand {
  grep /\w/, glob join '', map { /\w/ ? "{$_,.}" : $_ } split //, shif
+t;
}

2020/05/10 00:21:33 INFO ./2.3.t89.pl 
2020/05/10 00:21:33 INFO tiles: a j a y x l n
 
...
2020/05/10 00:21:33 INFO id: 1 match: aa 
2020/05/10 00:21:33 INFO id: 1 match: aal 
2020/05/10 00:21:33 INFO id: 1 match: ajar

2020/05/10 00:21:33 INFO id: 1 placepat: .r. 
2020/05/10 00:21:33 INFO matched: try 
2020/05/10 00:21:33 INFO hex is: 740079

      ( join '', sort $newtiles =~ /\w/g ) =~ /^$tilepat$/
        and push @found, $match;

2020/05/10 00:21:33 INFO matches1================
 ar rant at

      ( join '', sort $newtiles =~ /\w/g ) =~ /^$tilepat$/
        and push @found, $match;

2020/05/10 00:21:33 INFO id: 2 match: aa 
2020/05/10 00:21:33 INFO id: 2 match: aal 
2020/05/10 00:21:33 INFO id: 2 match: ajar 
2020/05/10 00:21:33 INFO id: 2 match: al 
2020/05/10 00:21:33 INFO id: 2 match: ala

2020/05/10 00:21:33 INFO id: 2 match: alant 
2020/05/10 00:21:33 INFO id: 2 placepat: ....t 
2020/05/10 00:21:33 INFO matched: alant

2020/05/10 00:21:33 INFO matches2================
 wanly alary waly wany waxy ajar alar alant ar rant raja raya at

#!/usr/bin/perl

use strict;    # https://perlmonks.org/?node_id=11116556
...
sub expand {
  grep /\w/, glob join '', map { /\w/ ? "{$_,.}" : $_ } split //, shif
+t;
}

2020/05/10 01:07:11 INFO ./7.t89.pl 
2020/05/10 01:07:11 INFO ============ 
2020/05/10 01:07:11 INFO   f   e  
...
2020/05/10 01:07:11 INFO g?h?h?k?k?n?o?r?x?y?
tilepat: h?k?k?n?r?x?y?
letters: hykxkrnhog