my $text = qq~
http://www.google.com
<a href="http://www.google.com">fail a match here</a>
~;

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

print $text;