my $playername;

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

##</code><code>##

while (<LOGFILE>) {
    $clipsobt++ if /\bclip\b/i;
}