1: #!/usr/bin/perl
    2: 
    3: $/ = "";                        # Eat a paragraph at once.
    4: while(<STDIN>) {
    5:     chop;
    6:     s/\n/ /gm;
    7:     if (/^=head1 /) {
    8:         $name = 0;
    9:     } elsif ($name) {
   10:         if (/ - /) {
   11:             s/ - .*//;
   12:             s/,\s+/,/g;
   13:             s/\s+,/,/g;
   14:             s/^\s+//g;
   15:             s/\s+$//g;
   16:             s/\s/_/g;
   17:             push @words, split ',';
   18:         }
   19:     }
   20:     if (/^=head1 *NAME *$/) {
   21:         $name = 1;
   22:     }
   23: }
   24: 
   25: print join("\n", @words),"\n";
   26: