valid=: (1":0,:3#1)&(0:=1(E.S+#@]<2:*e.S~")S=:+/on)
cands=: ]`([:I.'.'"_=[)`[}"1 e.S&'.'>@,@{@#(<'01')"_
sumup=: ({~2:=#@~.)"1@|:@('.'"_,valid"1#])@cands
wd@,@wd@>sumup^:(11"_>e.&'.'S)"1@|:^:2^:_@:>&.><;._1^:2(,stdin)2#LF
Note that non-ascii characters in the above source code will be escaped (such as \x9f).