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