$n+=3-length($_)%4 for<>=~/(.*?)[A-Z]/g;print$n-3