[svn-inject] Installing original source of scowl

[deb_pkgs/scowl.git] / 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";
}