Filter für Wörter in Versalien - wie?

Noch ein Filter von Dano, der alle TITLE filtert, die mit 4 Großbuchstaben beginnen:
"$left($regexp(%title%,^\u\u\u\u,----),4)" IS ----