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