use strict;
use Regexp::Assemble;

my $re = Regexp::Assemble->new( track => 1 );

open IN, shift || 'patterns' or die "open pattern file: $!\n";
while( <IN> ) {
    chomp;
    $re->add($_);
}
close IN;

# read from, e.g., STDIN
while( <> ) {
    chomp;
    if( defined( my $match = $re->match($_)) ) {
        print "  $_ matched by $match\n";
    }
}