isolare indirizzo email

[alpeweb]

Salve a tutti,
avrei bisogno di poter isolare un indirizzo email contenuto in un testo come questo:

X-Message-Status: n:0
X-SID-PRA: zxxxxx <info@xxxxxx.it>
X-Message-Info: LsUYwwHHNt1tVSLaMHHaDHj2FGt9nEAd6zYMKWF/soY=
Received: from mail.xxxxxx.it ([2xx.xxx.xxx.xxx]) by bay0-mc6-f11.xxx.com
Tue, 6 Feb 2007 06:42:10 -0800
Received: (qmail 1xxxx invoked by uid xxx); 6 Feb 2007 15:36:10 +0100
Date: 6 Feb 2007 15:36:10 +0100
Message-ID: <200xxxxxx.14xxxx.qmail@mail>
To: xxxxxx244@xxxxx.it
Subject: xxxxxxxxxxxxxxxxxxxxxxxxxxxx.
From: "xxxxxxxxxxxxxxx" <info@xxxxxxxxxxxxxx>
Reply-To: "xxxxxxxxxxxxxxxx" <xxxxxxxxaci@xxxxxxxxx>

credo che si possa utilizzare qualche regexp ma sinceramente non saprei
come isolare la riga in rosso.

Qualcuno mi potrebbe aiutare?

[alpeweb]

non ha avuto molto successo la mia domanda......
cmq ho risolto in modo "artigianale" così:

$msg=".........
Date: 6 Feb 2007 15:36:10 +0100
Message-ID: <200xxxxxx.14xxxx.qmail@mail>
To: [email]xxxxxx244@xxxxx.it[/email] 
Subject: xxxxxxxxxxxxxxxxxxxxxxxxxxxx.
From: \"xxxxxxxxxxxxxxx\" <info@xxxxxxxxxxxxxx>
Reply-To: "xxxxxxxxxxxxxxxx" <xxxxxxxxaci@xxxxxxxxx>
";



$mxx=explode("Subject:",$msg);

eregi ( "To:(.+)([a-z0-9\._-]+)(@[a-z0-9\.-_]+)(\.{1}[a-z]{2,6})",$mxx[0], $testi);

echo $testi[0];//-----> To: [email]xxxxxx244@xxxxx.it[/email] 

Sicuramente non è elegantissima, e non ho la certezza di parsare correttamente tutte le mail in questione, se qualcuno più esperto di me può aiutarmi nel rendere il tutto più
funzionale e più sicuro gliene sarei molto grato.