Select Code to Download

# we read a line from somewhere to $line
# and @regex is our array of patterns
foreach (@regex) {
    print "Match!\n" if $line=/$_/;
}

# {
#    my @matches;
...
#    push @matches n if /nth_regex/;
#    @matches;
# }