@snort   =("large","packet","bad","traffic","inbound","attempt","web","IIS","cmd.exe","cgi","access","multiple","decode");

##</code><code>##

@snort   = qw(large packet bad traffic inbound attempt web
              IIS cmd.exe cgi access multiple decode);

##</code><code>##

my @watcher = ( \@pix, \@denies);
...
my @global = @{$watcher[$i]};

##</code><code>##


                if($global[$x]=~/ZSP/i){
                @ret=split(/ZSP/,$global[$x]);
                $global[$x]="";
                $global[$x]=join(' ',@ret);
                }

##</code><code>##

    if (my @ret = split /ZSP/, $global[$x]) {
        $global[$x] = join ' ', @ret;
    }

##</code><code>##


        foreach my $r (@spy) {
            if($input =~ /$r/i){
                $findings .= ' ' . $r;
                $fn++;
            }
        }