#!/usr/bin/perl -w
use strict;

cd "C:\\Documents and Settings\\Alex\\Desktop";
open LOGFILE, "doomlog.txt" or die "doomlog.txt: $!\n";
open LOGWRITE,">explog.txt" or die "explog.txt: $!\n";

my $clipsobt;
for my $logfile (<LOGFILE>){
    if ($logfile =~ /clip/i) {
        $clipsobt++
    }
}
print LOGWRITE "You have obtained $clipsobt clips.\n";