Or it could be the second match in one 1024-byte block.

I think the easiest way to do this would be to pull the entire page into $buf, and then do:

@listing = ($buf =~ /ID=(\d+)/g);