in reply to How do I replace a URL with a clickable hyperlink?

$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;

[download]

Originally posted as a Categorized Answer.

In Section Seekers of Perl Wisdom