Foro - Perl en Español

Saludos, comunidad.

Por favor, si pueden darme una ayuda.

Necesito una expresión regular que extraiga el dominio de una cuenta de correo.

Ejemplo, si tengo las siguientes cuentas

@vec = ( '[email protected]', '[email protected]', '[email protected]', '[email protected]' );

que me extraiga el dominio. El resultado debería ser:

midominio.com
otro.com
gmail.com.py
ultra.es

Por favor, si pueden ayudarme. Estoy intentando con esta expresión:

if ($var[1] =~ m/@(.+)/g) { }

La expresión regular es correcta. Te sobra el '/g'.