Actually, my solution is similar to yours. The elongated solution is:

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

Lately, I found out about the bit-wise operator '&' and substituted it.