use Modern::Perl; use Regexp::Assemble; use autodie; open my $PATTERNS, '<', './patterns.txt'; my $re_pattern = Regexp::Assemble->new->add(<$PATTERNS>)->re; close $PATTERNS; open my $PATHS, '<', './paths.txt'; do {print unless /$re_pattern/} while <$PATHS>; close $PATHS;