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

##</code><code>##

# {
#    my @matches;
#    push @matches 1 if /first_regex/;
#    push @matches 2 is /second_regex/;
#      .
#      .
#    push @matches n if /nth_regex/;
#    @matches;
# }