#!/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 = grep /clip/, <LOGFILE>;
print LOGWRITE "You have obtained $clipsobt clips.\n";