$ perldoc -f ..
No documentation for perl function `..' found

##</code><code>##

#!/usr/bin/perl
 
use strict;
# use Data::Dump;
 
my $poddir =  `perldoc -l perltoc`;
chomp $poddir;
$poddir =~ s/perltoc/*/;
 
my $pattern = $ARGV[0];
my @pods= grep {! /perltoc/} `grep -l -F 'X<$pattern>' $poddir`;
chomp @pods;
 
# dd @pods;
 
for my $infile (@pods) {
  open my $in, "<", $infile;
  my $outfile = "/tmp/". (split "/",$infile)[-1];
  open my $out,">", $outfile;
  
  local $/="\n\n";
  my $marker =
     ">>> X<$pattern> <<<";    #"MARK";
  
  while (my $para = <$in>){
  print $out "\nC<<<< $marker >>>>\n\n"
  	if $para =~ /X<\Q$pattern\E>/; 
 
  print $out $para;
  }
  close $out;
 
  my $ret = `pod2man $outfile |nroff -man > /tmp/tmp.man`;
  print system("less -p \"$marker\" /tmp/tmp.man")
}