$n+=4-len($`)%4 for(/[A-Z]/g);print $n-4;