#!/usr/local/bin/perl

@files = </usr2/shared/MT-Eval/LDC-ACL05-wshp/mt_chinese_acl_workshop/source/*.sgm>;

foreach $file (sort @files) {
    open(FD, $file) or die $!;
    while ($line = <FD>) {
	if ($line =~ m/<seg id=\d+>([^<]+)<\/seg>/) {
	    print "$1\n";
	}
    }
    close(FD);
}