$string =~ s!http://(.+?)(\s|$)![<a href="http://">Link</a>] !;

##</code><code>##

[<a href="[<a href="[<a href="[<a href="[<a href="[<a href="[<a href="[<a href="http://">Link</a>]

##</code><code>##

$string =~ s!http://(.+?)(\s|$)![<a href="http:a//">Link</a>] !;

##</code><code>##

[<a href="http:a//">Link</a>]