$var =~ s/http:\/\/$1/<a href="http:\/\/$1">http:\/\/$1<\/a>/gi;