$text =~ s/http:\/\/(.+)\s/<a href=\"http:\/\/$1\">http:\/\/$1<\/a>/;