Acá te tiro un código que lo que hace es dividir el string palabra por palabra y almacena cada una en un array....Luego, checkea en cada uno de los elementeod de ese array (las palabras) si se encuentra la palabrilla mágica real_ si está lo carga en otro array definitivo en el cual estarán solamente las palabras con real_
(@palabras) = split(/ /, $string);
foreach $palabra (@palabras) {
if ($palabra =~ m/real_/){
push(@palabras_definitivas,$palabra);
}
}
print "@palabras_definitivas";
Te gustó??? no lo probé pero pienso que quiene que andar
Suerte
