Hummm... creo que no te he respondido bien...
Creo que quieres decir que
$doc contiene muchas combinaciones de esas palabras.
Bueno, pues una forma de hacerlo sería con un bucle:
Using perl Syntax Highlighting
while ( ($palabra1, $palabra2) = $doc =~ m/\'(\w+)\.(\w+)\'/sigmo) ) {
# Guardamos las palabras leídas en dos arrays
push @palabra1, $palabra1;
push @palabra2, $palabra2;
}Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Ahora sí. Con el añadido de
/g y el while, la expresión regular recorre todo el
$doc, sacando las palabras, y con los push las vamos almacenando en sendos array.