brute force all match patterns

gistfile1.pl

#!/usr/bin/perl

use v5.14;
use warnings;
use utf8::all;
use File::Slurp qw( read_file );

...

my @patterns = map {qr/\b$_\b/ixms} keys $pattern_list;

    my $content = read_file( $fname );

    foreach my $term (@patterns) {
        if ( $content =~ $term ) {
          # post processing
        }
    }