#!/usr/bin/perl

open F, "r/pos/part-of-speech.txt";

while (<F>) 
{
    chop;
    next if not /^([^\t]+)\tN.*$/;
    print "$1\n";
}