my $days = join '|', qw( Montag Dienstag ); #fortsetzen
# und im while:
push @felder, $1 if /^($days),/i;