or download this
#! perl -slw
use strict;
...
111111111111111111010101010101011111111111111111111111111111
+11111111111111111111
110101010101010111111111111111111111111111111111111111111111
+11111101010101010101
Comparing 1 against 15000 sets, took: 0.069599 seconds