icon, 245 bytes

Result [link]

WA

Code [DL]

procedure main()
	ai := read() 
	d := 50
	a :=  reverse(ai[1:d+1])
	b := reverse(ai[d+1:d*2+1])
	s := 0
	
	every i := 1 to d do {
		s *:= 2
		s +:= a % 10
		a /:= 10
	}
	every i := 1 to d do {
		s *:= 2
		s +:= b % 10
		b /:= 10
	}
	write(s)
end

stdin

1000010010100101000100011110111100100010110101010001000101010110001111101111001100101101010100100111

stdout

Standard output is empty

stderr

strace