#!/usr/bin/perl -w
use strict;

my $TestFile_Read   = "testfile_1";
my $TestFile_Search = "testfile_2";

# Suchdatei lesen aufbauen und Pattern aufbauen
open (my $sfh, $TestFile_Search)
    or die "Test File '$TestFile_Search' kann nicht gelesen werden: '$!'\n";
my @search = <$sfh>;
close $sfh;
my $pattern = join "|", map { quotemeta } @search;

# Testdatei lesen und durchschleifen
open (my $rfh, $TestFile_Read)
    or die "Test File '$TestFile_Read' kann nicht gelesen werden: '$!'\n";
while( my $line_r = <$rfh> )
   {
   # print "File_Read: $line_r";
      if( $line_r =~ /^($pattern)$/ )
        {
           print "Gefunden ($TestFile_Read in $TestFile_Search): $line_r";
        }
   }
close $rfh;