Problema con una expresion regular

[Ocrum2004]

He creado una expresion regular que me busque en un texto los emails y que me los muestre, el código es:

preg_match_all("|(^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@+([_a-zA-Z0-9-]+\.)*[a-zA-Z0-9-]{2,200}\.[a-zA-Z]{2,6}$)|U",$cadena,$salida0);
for ($cuenta=0;$cuenta<=sizeof($salida0[0]);$cuenta++) {
$email=$salida0[3][$cuenta];
print "-->".$email."<br>";
}

¿El problema?, pues que no encuentra nada, por lo menos eso creo yo.
¿alguien sabe de algun script ya creado que haga esto o como modificar este para que funcione?

Bye