foreach my $zeile ( split/\n/, $rec_db ) {
        $zeile =~ s/\|/\t/g;
        if( $zeile !~ /\d*\t\w*\t[\w* ]\t[\w* ]\t[\w* ]\t[\w* ]\t[\w* ]\..{1,4}\n/ ){ $error = 1; }
    }