diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index bae9db6..b13a525 100755
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -1353,9 +1353,7 @@ sub debug {
#------------------------------------------------------------------------------
sub OptimizeArray {
my $array = shift;
- my @arrayunreg = map {
- if (/\(\?[-\w]*:(.*)\)/) { $1 }
- } @$array;
+ my @arrayunreg = map { qr/$_/ } @$array;
my $notcasesensitive = shift;
my $searchlist = 0;
if ($Debug) {
@@ -7809,7 +7807,7 @@ sub DecodeEncodedString {
# Return: standardregex
#------------------------------------------------------------------------------
sub UnCompileRegex {
- shift =~ /\(\?[-\w]*:(.*)\)/;
+ shift =~ /\(\?[-\^\w]*:(.*)\)/;
return $1;
}