[bcn-pm] regexp

[Enrique Nell]

Podrías hacer esto:

my @words;
@words = $_ =~ /(?:^|\s)PREF(.+?)(?=$|\s)/g if /^Indicativo\b/;

Como ves, no incluyo PREF en las palabras. Si quisieras incluirlo sólo
tendrías que mover el paréntesis a la izquierda. Utilizo (.+?)(?=$|\s)
en lugar de \w para que las palabras no se me corten en los caracteres
acentuados (suponiendo que leemos el archivo sin especificar su
codificación).
El cuantificador perezoso (+?) a continuación del punto hace que la
detección se corte al llegar al primer espacio.

Saludos
Enrique