Şimdi anladım. Sen, uzun yazı koruması değil uzun harf koruması istiyorsun. Verdiğim koddaki, $len($1-) >= 30 olan yeri, $regex($1-,/([[:print:]])\1\1/gi) >= 30 şeklinde değiştirirsen istediğin olacaktır.