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