Foro - Perl en Español

Queria consultarles cómo hacer para realizar lo siguiente:
Tengo este texto:

prueba
marcos
perl
texto

Mi idea es mostrar las palabras que tengo hasta que encuentre una diferente a estas:


Estaba probando:



Pero por lo que veo no me funciona.

Quizás estás queriendo decir

if ($texto !~ m/prueba|marcos/) {

Ese if() se activa si $texto no contiene el patrón indicado.