Perl - Textverarbeitung

[andy]

Hallo, Struppi,

ich habe bis jetzt so gemacht aber es tut sich nichts!
open(FILE1, $ARGV[0])|| die "could not open file";

while(<FILE1>){
  chomp;
@Felder=split(/,/,$_);
}

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

while (<FILE2>)
{
chomp;
s/($pattern)/<mark>$1</mark>/g;
push @file, $_;
}

file1.txt schaut so aus: montag, dienstag, mittwoch,...usw. Es ist nicht nur eine Zeile.
file2.txt schaut so aus. Am montag wird schönes Wetter sein.... usw
Ich will nun das nur Montag markiert wird. Aber der script macht das nicht. Woran liegt der fehler?
vielen Dank,

mfg, Andy