$message =~ s#^(http://\S+)#<a href="$1">$1</a>#;
$message =~ s#(?<=\s)(http://\S+)#<a href="$1">$1</a>#g;