sub decompress_uint {
   our $compressed; local *compressed = \($_[0]);
   my $bytes_read = 0;
   my $uint = 0;
   for (;;) {
      die if length($compressed) == $bytes_read;
      my $byte = ord(substr($compressed, $bytes_read++, 1));
      $uint = ($uint << 7) | ($byte & 127);
      last if $byte & 128;
   }
   $compressed = substr($compressed, $bytes_read);
}

my $raw = do { local $/; <$fh> };
my @nums;
while (length($raw)) {
   push @nums, decompress_uint($raw);
}