$text =~ s/<link=("[^"]*")>(.*?)<\/link>/<a href=$1>$2/gi;