どなたか教えて下さい。
掲示板で投稿された "http://〜"で始まるURLに自動リンクを貼りたいのですが、
その際に、リンクして行った人を数えるため、link.cgiにurlを渡してリンクさせ
ようと思ったのですが、

$message =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+]+)/$1<a href=\"$2\">$2</a>/g;
$url = $2;
$url_ec = $2;
$url_ec =~ s/(\W)/'%'.unpack("H2", $1)/ego;
$url_ec =~ tr/ /+/;
$message =~ s/<a\ href=\"\Q$url\E\"/<a href=\"link.cgi?url=$url_ec\"/g;

このように書くと、最後だけがlink.cgi呼び出しになって、
それ以前のものは、通常にリンクされてしまいます。
link.cgiにエンコードしたurlを完全に渡す方法を教えて下さい。