#!/bin/bash

PAGER=/bin/cat
for i in `perl -e 'print join " ", map { /^\s+(perl\w+)/ ? $1 : () } \`perldoc perl\`'`; do
  echo "$i:"
  perldoc "$i" | grep $*
done