...
    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];
...