@patterns = map qr/\Q$_\E/, @patterns;


##</code><code>##

        foreach my $pattern (@patterns)
        {
            if (-1 != index $line, $pattern)
            {
                push(@events, $line);
                last;
            }
        }

##</code><code>##

chomp @$srcRef;
my %pattern;
@pattern{@patterns} = ();
my @events = grep {exists $pattern{$_}} @$srcRef;