$/=$";print+(<>=~s/..//r*<>)=~s/....$//r