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