$\=<>;s/./vec($\,pos,8)+=$&ne$"&&"$&1"/egfor<>;print