#!/usr/bin/perl
#faqgrep version 1.0
use warnings;
use strict;

#<<faqgrep>>=
#<<set directory and filename list>>=
my $faq_directory = 'perlfaq.pod';
my @faq_files = ('perlfaq1.pod', 'perlfaq2.pod', 'perlfaq3.pod',
	         'perlfaq4.pod', 'perlfaq5.pod', 'perlfaq6.pod',
	         'perlfaq7.pod', 'perlfaq8.pod', 'perlfaq9.pod'
		);

#<<set search pattern>>=
my $pattern = $ARGV[0] or die "no pattern given: $!";

#<<search all files for pattern and print matches>>=
foreach my $filename (@faq_files) {
    #<<read files and print matching lines>>=
    open(FILE, $filename) or die("can't open '$filename': $!");
    while (<FILE>) {
        #<<print line if matches pattern>>=
        if (s/^=head2// and m/$pattern/) {
            print "$filename:\n$_";
        }
    }
    close(FILE);
}