espressioni regolari

[Kevin]

Ciao
come faccio con le espressioni regolari a leggere un file txt e a ricavare tutte le email che sono all'interno?
so che le email hanno uno spazio all'inizio ed uno alla fine.
Ho provato così:

$STR=implode("",file("email.txt"));
$r = "([a-z0-9]+[._-]?){1,3}([a-z0-9])*";
$r = "/(?i)^{$r}@{$r}.[a-z]{2,6}$/";

//$r='^[:space:].*[@].*[:space:]$';

preg_match_all($r,$STR,$ArrEmail);
foreach($ArrEmail as $valore){
	while(list($key,$val)=each($valore)){
		echo $key."-".$val."
";
	}
}

ma non mi da risultato

[Kevin]

funziona con questa espressione
$r="/[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}/"