regex - matching capitalisation

I am not having any success in matching for excessive use of caps -
neither with gnu egrep nor procmail regex.  I creating a filter
condition for spam, excessive use of caps, so in perl I might go:

/([A-Z]{3,20}\s){4,}/

to match 4 or more consecutively capitalised words.  I found something
suggests something like
*[A-Z][A-Z][A-Z]([A-Z]([A-Z])?)? 
[A-Z][A-Z][A-Z]([A-Z]([A-Z])?)?[A-Z][A-Z][A-Z]([A-Z]([A-Z])?)?

but that matches everything.

any suggestions? - also what is the most efficient way to debug regex in
procmail?

thanx
-- 
Eric Smith
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail