1178814Sjhb#!/usr/bin/perl
2178814Sjhb
3178814Sjhb$/ = "";			# Eat a paragraph at once.
4178814Sjhbwhile(<STDIN>) {
5178814Sjhb    chop;
6178814Sjhb    s/\n/ /gm;
7178814Sjhb    if (/^=head1 /) {
8178814Sjhb	$name = 0;
9178814Sjhb    } elsif ($name) {
10178814Sjhb	if (/ - /) {
11178814Sjhb	    s/ - .*//;
12178814Sjhb	    s/,\s+/,/g;
13178814Sjhb	    s/\s+,/,/g;
14178814Sjhb	    s/^\s+//g;
15178814Sjhb	    s/\s+$//g;
16178814Sjhb	    s/\s/_/g;
17178814Sjhb	    push @words, split ',';
18178814Sjhb	}
19178814Sjhb    }
20178814Sjhb    if (/^=head1 *NAME *$/) {
21178814Sjhb	$name = 1;
22178814Sjhb    }
23178814Sjhb}
24178814Sjhb
25178814Sjhbprint join("\n", @words),"\n";
26178814Sjhb
27178814Sjhb