hledani web adres/mejlu v textu

Mam text, ktery obsahuje texty a sem tam email nebo web adresy. Ty adresy potrebuju nejakym zpusobem vyhledavat a pak jim vnutit odkaz...

To sem našel narychlo v nějaký knize návštěv, uprav si to


if (EregI("^(www\..+\..{2,3})$", $slovo[$y])): //jedna se odkaz typu www......
$odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]);
elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y]))://jedna se odkaz typu http://.......
$odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]);
else:
$odkaz = $slovo[$y] . " "; //jedna se o normalni slovo
endif;