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