[svn-upgrade] Tagging scowl (7.1)

[deb_pkgs/scowl.git] / 6 / src / extract-possessive

#!/usr/bin/perl

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

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