Are you saying you want the first two fields extracted from every line? If so, just use split:

while(<DATA>) {
    my @two = split ' ', $_;
    print "@two[0,1]\n";
}
__DATA__
00000001  99888  00000011  99889  00000002  99890  00000003  99808
00000021  99888  00000021  99889  00000022  99890  00000023  99900
[download]