Foro - Perl en Español

Hola a todos,

Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!

Las primeras (^) letras mayúsculas ([A-Z]+)...