while (<IN>) {
        $numlines++;  # Remove for more speed
        next if not /^McDarren\t/;
        chomp();
        my ($user,$level) = (split /\t/)[0,3];
        next FILE if $level <= $currlevel;
        print "$file $user $level";
        print "Processed $numlines lines in ".
              "$numfiles files (total files:$totalfiles)";
        exit;
    }