while (my $pat = &read_trans_pattern($cfg)) {
  $trans_funcs{$pat->{'usenet'}} = 
    &build_trans_func($pat->{'usenet'}, $pat->{'tag'});
}