move branches to the correct spot

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