Redirects to a different search path, in Perl

htsearch

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
my $query = $ENV{'QUERY_STRING'} || '';
my ($words) = $query =~ /words=([^&]+)/;
if (defined $words) {
    $words =~ s/\+/ /g; # Replace + with space
    $words =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; # Decode URL-encoded characters
    print "Location: /search/?q=$words\n\n";
} else {
    print "Location: /search/\n\n";
}