my @patterns = ("SDC: HUT time changed: 0",
                    "BATT: Cap=0\\(watt-min\\) HUT=0\\(min\\) 0\\(hrs\\) state=GOOD->BAD",
                    "BATT: Log battery system condition GOOD->BAD");

    my @events;
    
    foreach my $line (@$srcRef)
    {
        foreach my $pattern (@patterns)
        {
            if ($line =~ /$pattern/)
            {
                push(@events, $line);
                last;
            }
        }
    }