Select Code to Download

With the requirement of an 8-letter word:

...
3 ail ain air ait ale ali alt ane ani ans are art asl ate ats ean ear 
+eat ela eli
2 ae ai al an ar at ea el en er et ia ie il in ir it la le li ln lr lt
+ na ne ni
1 a e i l n r s

With the requirement of at least a 7-letter word:
Reading ...
...
3 ail ain air ait ale ali alt ane ani ans are art asl ate ats ean ear 
+eat ela
2 ae ai al an ar at ea el en er et ia ie il in ir it la le li ln lr lt
+ na ne ni
1 a e i l n r s

With 2of12ing and 8-letter word required:
Reading ...
...
4 airs ante anti ants apes apse ares arts earn ears east eats eras ers
+t etas
3 air ani ant ape apt are art asp ate ear eat ens era eta ins ire its 
+nae nap
2 an as at en in is it pa pi re

#!/usr/bin/perl

...
    my @w = map { @{$magic{$_}{words}} } @{$magic{$best}{ext}[$l]};
    showfirst ($l, join " " => sort @w);
    }