Select Code to Download

    my @patterns = ("SDC: HUT time changed: 0",
                    "BATT: Cap=0\\(watt-min\\) HUT=0\\(min\\) 0\\(hrs\
+\) state=GOOD->BAD",
...
            }
        }
    }

    foreach my $line (@$srcRef)
    {
...
            push(@events, $line);
        }
    }