Select Code to Download

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

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