891     while (<PFUNC>) {  # "The Mothership Connection is here!"
 892         if ( m/^=item\s+$search_re\b/ )  {
 893             $found = 1;
 894         }
 895         elsif (/^=item/) {
 896             last if $found > 1 and not $inlist;
 897         }
 898         next unless $found;
 899         if (/^=over/) {
 900             ++$inlist;
 901         }
 902         elsif (/^=back/) {
 903             --$inlist;
 904         }
 905         push @$pod, $_;
 906         ++$found if /^\w/;        # found descriptive text
 907     }
[download]