Select Code to Download

http://www.google.com
<a href="http://www.google.com">fail a match here</a>

<a href="http://www.google.com">http://www.google.com</a>
<a href="http://www.google.com">fail a match here</a>

my $text = qq~
http://www.google.com
...
$text =~ s#(http://[^\s]*)(?!["|<])#<a href="$1">$1</a>#gsi;

print $text;

s#[^">](http://[\S]*)# <a href="$1">$1</a>#gsi;