9 sub valid_entry ( $ ){local $_ = $_[0]; /^[A-Za-z\']+$/ && exists $words{$_}}
11 foreach my $f (qw(working/variant_0.lst working/variant_1.lst
13 working/british_variant_0.lst working/british_variant_1.lst
14 working/canadian_variant_0.lst working/canadian_variant_1.lst
16 working/british.lst working/british_z.lst
17 working/canadian.lst))
19 open F, $f or die "Unable to open $f\n";
26 open F, "r/varcon/voc.tab" or die;
30 my ($word) = grep {valid_entry $_} (split /[,\t\n]/);
31 next unless defined $word;
37 open F, "r/varcon/variant.tab" or die;
40 @w = grep {$know_about{$_}} (split /[\t\n]/);
41 next unless @w && grep {valid_entry $_} @w;
42 $words{$w[0]} .= "$_\n" foreach @w;
45 open F, "r/varcon/variant-wroot.tab" or die;
50 next unless exists $words{$root};
51 @w = grep {$know_about{$_}} (split /[\t\n]/);
52 next unless @w && grep {valid_entry $_} @w;
53 $words{$w[0]} .= "$_\n" foreach @w;
56 while (($key, $value) = each %words) {