Select Code to Download

@logfile = split(/ /, <LOGFILE>);

#!/usr/bin/perl -w
use strict;
...
    }
}
print LOGWRITE "You have obtained $clipsobt clips.\n";

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

my $clipsobt = grep /clip/, <LOGFILE>;
print LOGWRITE "You have obtained $clipsobt clips.\n";