open DATEI_S, $dateiname_s
    or die "Kann $dateiname_s nicht oeffnen: $!";
while(<DATEI_S>){
    chomp ($_);
    if ($_=~/^[0-9]{4}/){
        if ((length($_)!=78)) {
            push (@s_fail, $dateiname_s);
        }
    }