if ($_ =~ s/dok_dat_feld./*/) {
    $Anzahlspalten = $Anzahlspalten + 1;
}