@ARGV = '/path/to/perlfunc.pod';

while(<>) {
  if (/^=item\s+([a-z_]\w*)/i) {
  print "$1\n"
 }
}

##</code><code>##

sub findtext {
@filenumbers = @_;
foreach $number(@filenumbers) {
push @filenumbers2, split(/\W/, $number);
}
	foreach $number(@numbers2) {
	chomp $number;
	if( defined $number ) {
		open(FILE,"/home/jroberts/$number.txt") or die "$!";
		foreach $term(@inputs) {
		while(<FILE>)
			if(/\b($term)\b/i) {
			push @before, split(' ', $`);
			@before = reverse(@before);
			@before = splice(@before, 0, 7);
			@before = reverse(@before);
			push @after, split(' ', $');
			@after = splice(@after, 0, 7); 
			if(exists $results{$number}) {
			$existing = $results{$number}; 
			$results{$number} = $existing . "... @before" . "<b>$&</b>" . "@after ...";
			} else {
			$results{$number} = "... @before" . "<b>$&</b>" . "@after ";
			}
			@before = undef;
			@after = undef;
			next;
			} else {
			print "No Match\n";
			next;
			}
		}
		print "Match found in $number.txt\n";
		@fulltext = $results{$number};
		print "@fulltext\n";
		close(FILE);
	} else {
	next;
	}
	next;
	}
}