Suche mit Regex

[opi]

Hallo,

zweite datei
habe ich in einem array gespeichert
also das array hat die form

open(FILE_A,'<./searchstring');
my $search = [ <FILE_A> ];
chomp for @$search;
close(FILE_A);

my $lines = [ "dies ist ein simpler test", "dies ist ein simpler test", "dies ist ein simpler test" ];

foreach my $line (@$lines) {
   $line =~ s/($_)/<mark>$1</mark>/gi for @$search;
   print $line ."\n";
}

Greez,
opi