$message =~ s{(http://\S+)}
             {<a href="$1">$1</a>}mxsg; # UNTESTED