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;
            }
        }
    }

##</code><code>##

    foreach my $line (@$srcRef)
    {
        if ($line =~ /SDC: HUT time changed: 0/)
        {
            push(@events, $line);
        }
        elsif ($line =~ /BATT: Cap=0\(watt-min\) HUT=0\(min\) 0\(hrs\) state=GOOD->BAD/)
        {
            push(@events, $line);
        }
        elsif ($line =~ /BATT: Log battery system condition GOOD->BAD/)
        {
            push(@events, $line);
        }
    }