[Gutl-l] Expresion regular

Saludos familia, En expresiones regulares estoy frito, alguine me puede ayudar, necesito una expresion regular perl compratible que me validel el local part de una dirección de correo electrónico y el dominio es fijo, ejemplo: *(a)dominio.cu Gracias de antemano...