while (my $line = <LOG>)              #Whileschleife für die Durchsuchung der Datei
{
    if ($line =~ /$versch/)     #Datei auf "Verschieben" prüfen
    {                     
        $cversch ++;      
    }