r/special/.add-possessives.pl

   1 use strict;
   2 use warnings;
   3
   4 my %add_pos;
   5
   6 open F, "macro.80";
   7 while (<F>) {
   8     chomp;
   9     next unless /^(.+)\'s/;
  10     $add_pos{$1} = $_;
  11 }
  12
  13 while (<>) {
  14     chomp;
  15     print "$_\n";
  16     print $add_pos{$_}."\n" if exists $add_pos{$_};
  17 }