#!/usr/bin/perl
use strict;
use warnings;

my @regex;
while (<DATA>) {
    chomp;
    push @regex, qr/$_/;
}

while (my $line = <STDIN>) {
    for (0..$#regex) {
        print "matched no: $_\n" if $line=~/$regex[$_]/;
    }
}

__DATA__
foo
bar
baz