Select Code to Download

<doc><Ch_Chair>Ms Foo</Ch_Chair> <!-- names have been changed to prote
+ct the victims identity -->
     <Ch_Chair>Mr Bar</Ch_Chair> <!-- but there are actually _NO_ comm
+ents in the file -->
...
     <!-- other chunks -->
     <chunk />
</doc>

<doc><perslist>
       <officers>
...
     </perslist>
     <!-- stuff -->
</doc>

my %change=( 'CommitteeList'      => 'person',            # CommitteeL
+ist tag should become person
             'Ch_Chair'           => 'person[officer]');  # Ch_Chair t
+ag should become person too 
...
            perslist         => 'officers?, person+');    # then we wr
+ap the whole list in a perslist tag

my @wrap=( 'officers', 'perslist');                       # to process
+ them in the proper order

my %wrapper;          # stores the regular expression generated from %
+wrap 

...

    return eval "sub { $subr }";
  }