#!/usr/local/bin/perl -w
open (OUT, ">output.txt");

use warnings;
use strict;
#use Data::Dump; # Debug
use File::Basename qw/fileparse/;
use File::stat;

my %filelist;
for my $file (glob '/user/*/ws/*/BLK_*/*.txt') {
    my $bn = fileparse($file);
    my $mtime = stat($file)->mtime;
    #dd $file, $bn, $mtime; # Debug
    $filelist{$bn} = [$file,$mtime]
        unless $filelist{$bn} && $filelist{$bn}[1]>$mtime;
}
#dd \%filelist; # Debug
my @filelist = sort map {$_->[0]} values %filelist;
#dd \@filelist; # Debug

for my $file (@filelist) {
       my $fname = substr($file, rindex($file,"/")+1, length($file)-rindex($file,"/")-1); #for printing file name in my output
       printf OUT $fname;
    
       open (IN, "<",$file);
       while ($line = <IN>){
             chomp($line);
       if ($line =~/    RULECHECK/){
            @temp = split (/\s+/,$line);
            $start = $temp[2];
            $count = $temp[8];
            if($count > 1000){
                 printf OUT "%-60s %-10s\n",$start,$count;
	    }
       }
       }
}
system ("gedit output.txt");