Select Code to Download

#! perl -slw
use strict;
...
    print $details;
}

#! perl -slw
use G;
...
open WORDS, '>', 'words.dat' or die $!;
print WORDS for sort keys %words;
close WORDS;

#! perl -slw
use strict;
...
print INDEX "$_(@{[ unpack '%b*', $index{ $_ } ]}) : [@{[ unpack 'b*',
+ $index{ $_ } ]}]" 
    for sort keys %index;
close INDEX;

.\171594.txt : all an and anonymous asked at back be better but by com
+ concerning contain create directories even excluding expression foll
+owing for gone has have hours in index jun last list looking monks of
+ on over pl probably question renders replies round seekers simple th
+anks that the this to want wisdom without would
.\171599.txt : am and are at be being brothers but by com comes create
+ darkness directories doubt enlightenment etiquette help here if in i
+ndex jun light list living me my no not of on order piece pl re repli
+es reply seeking so someone strong sure tell that the thread to unsur
+e until way weak will with without