Perl Implementation

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use File::Find;

my $cgi = CGI->new;

# Configuration
my @directories = ('/var/www/html/docs', '/var/www/html/pages');
my $baseurl = 'http://example.com';
my @extensions = qw(html htm txt);

# Get search parameters
my $keywords = $cgi->param('keywords') || '';
my $boolean = $cgi->param('boolean') || 'AND';

# Security: sanitize input
$keywords =~ s/[^\w\s]//g;
my @terms = split(/\s+/, lc($keywords));

# Output HTML header
print $cgi->header('text/html');
print $cgi->start_html('Search Results');
print "
Search Results
\n";

if (!@terms) {
    print "
Please enter search keywords.
\n";
    print $cgi->end_html;
    exit;
}

print "
Searching for: $keywords ($boolean)
\n";

# Search files
my @results;

find(sub {
    return unless -f;
    my $file = $File::Find::name;

    # Check extension
    my ($ext) = $file =~ /\.(\w+)$/;
    return unless $ext && grep { $_ eq lc($ext) } @extensions;

    # Read file content
    open(my $fh, '<', $file) or return;
    my $content = do { local $/; <$fh> };
    close($fh);

    $content = lc($content);

    # Check for matches
    my $match = 0;
    if ($boolean eq 'AND') {
        $match = 1;
        for my $term (@terms) {
            unless ($content =~ /\b\Q$term\E\b/i) {
                $match = 0;
                last;
            }
        }
    } else {  # OR
        for my $term (@terms) {
            if ($content =~ /\b\Q$term\E\b/i) {
                $match = 1;
                last;
            }
        }
    }

    if ($match) {
        # Extract title
        my ($title) = $content =~ /