Select Code to Download

use strict;
use IO::File;
...
my $pattern = $ARGV[0];

print `grep -r $pattern $CACHEDIR`

username@servername$ perl podsearch qr/.*/
/home/username/.podcache/perl561delta.pod.txt:        Dumping "qr//" o
+bjects works correctly.
...
/home/username/.podcache/perltoc.pod.txt:        New "qr//" operator
/home/username/.podcache/perltoc.pod.txt:        As a simple string, A
+s a qr// compiled regular expression, e.g.:, As
/home/username/.podcache/perltoc.pod.txt:        As a simple string, A
+s a qr// compiled regular expression, e.g.:, As