Perl - Textverarbeitung

[Struppi]

aufruf des Scripts: perl script.pl einträge.txt text.txt
kommt folgendes raus:

Ich kann es dir nicht sagen:

my $text_txt = 'Morgen gehe ich ins Kino. Das ist am Montag.';
my $eintraege_txt ='Morgen,Montag,Heute';
my @Felder = split(/,/, $eintraege_txt);

my $pattern = join '|', map quotemeta, @Felder;

$text_txt =~ s/($pattern)/<mark>$1</mark>/g;

print $text_txt ;

Klappt bei mri zumindest.

Struppi.