¡Ah!, sí, tienes razón, se me escapó.
Si supiese que en el texto va haber dos emails lo haría así:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
$texto=' Grabar el email [email protected] jajaja [email protected]';
($email,$email2) = $texto =~ m{(\w+\
@[\w.]+)/g
};
print $email;
print $email2;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Pero no me funciona.
Y si no sé cuántos emails habrá en el texto lo guardaría en un array:
Using perl Syntax Highlighting
Pero tampoco me funciona.