my $filename = 'config.txt';

open my $readh, '<', $filename or die "open(ro) $filename: $!\n";
while (my $zeile = <$readh>) {
        # zur Sicherheit Zeilenumbrüche und Leerzeichen entfernen
        $zeile =~ s|[\n\r\s]||g;

        (my $art, my $groesse, my $anzahl, my $typ) = split(/,/, $zeile);
        
        next if ($art !~ m|[BKMG]|); # nächste Zeile bearbeiten, falls in $art etwas anderes als B, K, M, G steht
        next if ($groesse !~ m|^\d+$|); # nächste Zeile bearbeiten, falls in $groesse etwas anderes als eine Zahl steht
        next if ($anzahl !~ m|^\d+$|); # nächste Zeile bearbeiten, falls in $anzahl etwas anderes als eine Zahl steht
        next if ($typ !~ m/^(READ)|(WRITE)$/); # nächste Zeile bearbeiten, falls in $typ etwas anderes als READ oder WRITE steht

        # Prüfung erfolgreich
        ... hier dann "Daten" bearbeiten ...
        } # while
close $readh or die "close(ro) $filename: $!\n";