#!/usr/bin/env perl
  # Removes the dialect parts on an utt2lang file.
  # For example <utt> chinese.wu is converted to <utt> chinese.
  
  my ($utt2lang_file) = @ARGV;
  open(UTT2LANG, "<$utt2lang_file") or die "no utt2lang file";
  $utt2lang_short = "";
  while(<UTT2LANG>) {
    $line = $_;
    chomp($line);
    @words = split(" ", $line);
    $utt = $words[0];
    $lang_long = $words[1];
    @lang_parts = split('[.]', $lang_long);
    # The actual language. Other parts are dialects or subcategories.
    $lang = $lang_parts[0];
    $utt2lang_short .= $utt . " " . $lang . "
  ";
  }
  print $utt2lang_short;