#!/usr/local/bin/perl

## Filter out multiword entries from pos lexicon

use strict;
use warnings;

my $fileName = shift;

open(IFILE, $fileName) or die("Couldn't open the file $fileName\n");

while(<IFILE>){
	chomp;
	my @tokens = split /\s+/;
	print $_,"\n" if($#tokens == 1);
# 	print STDERR $_,"\n" if($#tokens > 1);
}
close IFILE;