$string=~s#http://(.*)(\s)#<a href=$1">http://$1</a>$2#g;