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