Extraer url de un texto o cadena

Siguiendo la línea de la entrada anterior el siguiente script es para sacar las url de un sitio web, en este estaría bien si alguien colabora y me comenta porque url del tipo dominosinwww.extension no las detecta, de echo (y no lo he comprobado) url con www.dominio.extensión creo que tampoco, detecta eso cualquier url con http, https o ftp, con cuantas subcarpetas, subdominios tenga.

Aquí os dejo el script:

1 function tieneUrls($cuerpo){
2 stripslashes($cuerpo);
3 $exp_url = '(ftp|http|https)://(w+:{0,1}w*@)?(S+)(:[0-9]+)?(/|/([w#!:.?+=&%@!-/]))?';
4 if (preg_match_all ("/$exp_url/i", $cuerpo, $urls, PREG_SET_ORDER))
5 return TRUE;
6 return false;
7 }

Para ver la explicación ir a la entrada anterior de Extraer emails de un texto que es idem, lo que cambia es la expresión regular.