7 push @l, "$1y" if /^(.+)[iI]es$/;
8 push @l, $1 if /^(.+)es$/;
9 push @l, $1 if /^(.+?)\'?s$/;
13 # STDIN contains the the list of words which contain the base forms
16 print unless $ARGV[1] eq "noecho";
21 # ARGV[0] is the file of words with possible 's's that we want to
22 # extract provided the base from is was in the above list
24 open IN, $ARGV[0] or die;
29 foreach $s (&strip_plurel($_))
31 if (exists $lookup{$s})
36 print "$_\n" if $print;