Suche mit Regex

[iris]

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

bis hier richtig.
zweite datei
habe ich in einem array gespeichert
also das array hat die form

@array = ("wort1","wort2","wort bla bla","usw andere wörter");

forach (@array)

[prüfe ob ein searchstring exsistiert, wenn ja marikiere]

wie mache ich das?

Also deine obere Lösung hat bei mir nicht funktioniert? Der Script ist in einen unendlichen Schleife geraten...

Danke für die Bemühung,

Gruss, Iris

open(FILE_B,'<inputfile');
while (my $line = <FILE_B>) {
   $line =~ s/($_)/<mark>$1</mark>/gi for @$search;
   print $line;
}
close(FILE_B);
[/code]

Greez,
opi