That only checks if there are >= 14 capital letters in $1-, not really a good solution ;P

Code:
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi))  > 0.7 ) {


that checks if more than 70% of the characters are in caps, but you also need an $len condition so people don't get banned for saying "A"