Regex Caps

on @*:text:*:#: {
if ($len($1-) >= 20 ) {
if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {
ban -ku600 $chan $nick Büyük Harf Koruması…! [MTX] )
}
}
}