#!/usr/local/bin/perl -w
# ner2sent: convert NE file to one sentence per line, words only
# usage:    ne2sent < file
# 20030217 erikt@uia.ua.ac.be

use vars qw($opt_t); 
use Getopt::Std;
# get parameters
getopt("");

@buffer = ();
while (<STDIN>) {
   $line = $_;
   chomp($line);
   if ($line =~ /^\s*$/ or $line =~ /^<utt>/) {
      while (@buffer) { print shift(@buffer)," "; }
      print "\n";
   } else {
      $line =~ s/^\s*$//;
      if (not defined $opt_t) { ($word) = split(/\s+/,$line); }
      # tag required: add it
      else { ($word,$tag) = split(/\s+/,$line); $word .= "/$tag"; } 
      push(@buffer,$word);
   }
}
while (@buffer) { print shift(@buffer)," "; }
exit(0);

