Estrarre indirizzi email (regexp)

[l'evangelista]

Ciao,
ho un database in cui sono memorizzati degli indirizzi email; purtroppo non occupano 1 colonna distinta, ma sono confusi in mezzo ad altre informazioni in campi TEXT.

Come posso, magari con qualche espressione regolare, estrarre tutti gli indirizzi email dai vari campi?

[Anªkin]

Mi sono permesso di modificare leggermente una funzione fatta da andr3a, presa da qui :

function get_mail( $m ) {
	// andr3a / caruccis
	$r1 = "(?:[a-z0-9]+[";
	$r2 = "\-]?){1,3}[a-z0-9]*";
	 preg_match_all("/(?i){$r1}\._{$r2}\@{$r1}\.{$r2}\.[a-z]{2,6}/", $m,$mailz);
    return $mailz[0];
}

ti restiuisce un array con le email trovate nella stringa che passi come parametro alla funzione.