Someone

#!/usr/bin/perl
# oscar.pl

use strict;

$|=1;
my ($line, $word, $size, $ok, $failed);
my @words;
$ok=0;
$failed=0;

my $file = $ARGV[0];

print "Analyzing $file:\n--------------------\n";
open(IN, "< $file");
while (<IN>) {
    my $line = $_;
    $line =~ s/\n//g;
    @words =split(/\s+/, $line);
    my $size = @words;
    if ($words[@words-1] =~ /OK/) {
        $ok++;
    }
    elsif ($words[@words-1] =~ /failed/) {
        $failed++;
    }
}
print "OK: $ok\nFailed: $failed\n--------------------\n\n";
close(IN);