#!/usr/bin/perl -wl
use strict;

my $dir = qw(/home/idlerpg/graphdump);

opendir( DIR, $dir ) or die "Cannot open $dir:$!";

my @files     = reverse sort readdir(DIR);
my $currlevel = 68;
my $numfiles;
my $numlines;
my $totalfiles = scalar @files;
my $user;
my $level;

for my $file (@files) {

    open IN, '<', "$dir/$file" or die "Ack!: $!";
    $numfiles++;

    while (<IN>) {

        $user  = '';
        $level = '';
        $numlines++;
        chomp();
        ( $user, $level ) = ( split /\t/o )[ 0, 3 ];
        next if $user ne 'McDarren';
        last if $level <= $currlevel;
        print $file, $user, $level;

    }

    close(IN);
}

print "Processed $numlines lines in $numfiles files (total files: $totalfiles)";