while (my $line = <LOG>) {
    $cversch++ if $line =~ /^Verschieben/;  # 'Verschieben' am Zeilenanfang

# usw.
}