#!/usr/local/bin/perl

open(EHA, "wikilex-20070402_eha.txt") or die $!;

while ($line = <EHA>) {
  $line =~ s/[\r\n]*$//;
  ($english, $hebrew, $arabic) = split(/\t/, $line);
  if ($hebrew ne "" and $arabic ne "") {
    $hacount++;
  }
  if ($hebrew ne "") {
    $hecount++;
  }
  if ($arabic ne "") {
    $aecount++;
  }
}

print "HA $hacount, HE $hecount, AE $aecount\n";