$text = <<TEXT;
Hello World http://www.world.com/index.htm
http://foo.com http://bar.com
TEXT

($links = $text) =~ s!(http://[^\s]+)!<a href="$1">$1</a>!gi;

print $text,"\n\n",$links;