$a[y/o//]=0for split x,<>.<>;print$#a