$newline =~ s#(http://[^.]+\.[^.]+\S+)#<a href="$1">$1</a>#gi;