use File::Find;
find sub {
  return $File::Find::prune = 1 if
    $File::Find::name =~ m{^/top/dir/this|some/where|.DONTSEARCH};
  return unless /\.html?$/;
  ($r, $line) = search_tags($File::Find::name);
  push @pages, $File::Find::name if $r;
}, "/top/dir";
[download]

-- Randal L. Schwartz, Perl hacker