$/=$";print+(<>=~s/..//r*<>)=~s/.{1,4}$//r+0