$playername = '';
$clipsobt = '';
$done = '';
@logfile = '';
$logfile = '';

open(LOGFILE, "C:\\Documents and Settings\\Alex\\Desktop\\doomlog.txt") or die "Can't open DOOM log file: $!\n";
open(LOGWRITE,">C:\\Documents and Settings\\Alex\\Desktop\\explog.txt") or die "Can't open log file for writing: $!\n";

until ($playername) {
	&askname();
}

&clipcalc();
print LOGWRITE "You have obtained $clipsobt clips.\n";

sub askname {
	print "What is your player's name?: ";
	chomp($playername = <STDIN>);
}

sub clipcalc {
	@logfile = split(" ", <LOGFILE>);
	foreach $logfile (@logfile) {
		if ($logfile =~ /clip/i) {
			$clipsobt++
		}
	}
}