#!/usr/bin/perl -w

use strict;

my $patterns = "/path/to/patterns.txt";
my $arg1 = shift;

open (PAT, '<', $patterns) or die "$patterns: $!\n";
my @patterns = <PAT>;.
close(PAT);
chomp @patterns;

my $regex_string = join '|', @patterns;

open( FILE, "<", "$arg1") or die "$arg1: $!\n";
$_ = do { local $/; <FILE> };
close(FILE);

if ( /($regex_string)/is ) {print "\n$arg1\n$1\n";}
[download]

part1.*part2
Foo bar
Other pattern
[download]

hghghgghghh
part1
fff
part2

jhhjhjkjk

Foo bar
kkjkjkj
Other pattern
[download]

/path/to/file
part1
fff
part2
[download]

only first pattern found is displayed now. That's not a problem, but I'd also like to know how to display all patterns if a file contains more than one.

That's easy -- instead of using an "if" statement like this:

if (/($regex_string)/is) {
[download]

just use a while loop like this -- making sure to add the "g" modifier (and while I'm at it, I'll add some clarification to the output):

while (/$regex_string)/isg) {
    print "\nmatched in $arg1:\n==$1==\n";
}
[download]

As for your other issue:

$1 will show all wildcarded text between part1 and part2 and not only the pattern part1.*part2 as it should.

What makes you think it "should" display the string "part1.*part2"? When using the capture variables ($1, $2, ...), the normal situation is to want the actual (complete, literal) string that matched the regex, rather than the regex string with its wildcards.

If you want the wildcard-enabled regexes in your list to return a specific constant string, you'll probably want to include that string in your regex list file, store those replacement strings with their regexes in a separate hash, and add some logic in the while loop shown above that will replace any given matching string with the appropriate constant replacement string. Here's an adapted version the three files involved:

Read more... (2 kB)