Select Code to Download

my $playername;

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

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