<>= foreach my $filename (@faq_files) { <> } ------------------------------------------------------ <>= open(FILE, $filename) or die("can't open '$filename': $!"); while () { <> } close(FILE); ------------------------------------------------------ <>= if (s/^=head2// and m/$pattern/) { print "$filename:\n$_"; }