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