$ time ./gfather.pl
dump.1167332700 McDarren 71
Processed 9098 files (total files:57912)
       56.07 real         4.10 user         0.97 sys
$ time ./gfather.pl
dump.1167332700 McDarren 71
Processed 9098 files (total files:57912)
       51.58 real         4.15 user         0.91 sys

##</code><code>##

...
    undef $/;
    my $data = <IN>;
    my $pos = index($data,'McDarren');
    $/ = "\n";
    next FILE if $pos == -1;
#    seek(IN, $pos,0);
#   chomp(my $line = <IN>);
    my ($user,$level) = (split /\t/, substr $data, $pos)[0,3];
...

##</code><code>##

my ($user,$level) = (split /\t/, (substr $data, $pos),5)[0,3];

$ time ./gfather.pl
dump.1167332700 McDarren 71
Processed 9100 files (total files:57914)
       47.50 real         0.79 user         0.80 sys