#!/usr/bin/perl
use warnings;
use strict;

my $path = "/scripte/csv";
my $csv = "test.csv";
my @werte = ();
my $count = 1;

open(FILE, "<$paht/$csv") || die "Cannot open file $csv!\n";
while(<FILE>)
{
    @werte = split(";");
    foreach my $value (@werte)
    {
         chomp($value);
         if(( $value !~ /^[A-Z0-9]{6}$/ ) && ( $value !~ /^$/ ))
         {
               $count++;
         }
    }
}
close(FILE);

if ( $count > 1 )
{
    print "DEBUG: ".$count." Fehler gefunden\n";
}