use strict;
use warnings;

my @stichworte;
open (EINTRAEGE, "eintraege.txt") or die $!;
while (<EINTRAEGE>) {
    push @stichworte, $1 if /^(\w+),/;
}
close EINTRAEGE;

# Regex zusammenbasteln
my $verodert = join '|', @stichworte;

while (<>) {     # lies von STDIN oder aus Dateien aus @ARGV
    s~($verodert)~<mark>$1</mark>~gi;
    print;
}