8 open IN, "neol2016.txt";
16 die unless defined $_;
19 $word =~ s/ *-> +\[.+\]//;
20 die "??>$word<" unless $word =~ /^[a-z]+$/;
28 foreach (@words) {s/ *-> +\[.+\]//}
33 if (s/\%$//) {push @words80, $_}
34 elsif (/^[a-z]+$/) {push @words50, $_}
35 else {die "???>$_<\n"}
41 next unless /^[A-Za-z\']+$/;
45 open OUT, ">neol-50.lst";
46 foreach (sort @words50) {print OUT "$_\n"}
48 open OUT, ">neol-80.lst";
49 foreach (sort @words80) {print OUT "$_\n"}