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

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