$message =~ s!(http://[-\w\.~\/\?&=;#:\%\+]+)!<A href="link.cgi?url=$1">$1</A>!g;