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