sub build_trans
{
  my ($usenet, $tag) = @_;

  return sub {
    my ($text) = @_;
    # do translation here, using $usenet and $tag
  }
}