while(<LOG>)              #Whileschleife für die Durchsuchung der Datei
{
    if($_ =~ $versch)     #Datei auf "Verschieben" prüfen
    {                     
        $cversch ++;      
    }
    if($_ =~ $korr)       #Datei auf "eingepflegt" prüfen
    {
        $cerflg ++;
    }
    if($_ =~ $err)        #Datei auf "Fehler" prüfen
    {
        $cerr ++;
    }
}