#!/usr/bin/perl -w

@ts_files = glob ('*.ts');

foreach $fname (@ts_files)
{
  open (FH, "<$fname") or die "unable to open $fname";

  $cnt = 0;
  while ($_ = <FH>) 
  {
    $cnt++ if (/type="unfinished"></);
  }
  close (FH);

  print "$fname: $cnt\n";
}
