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

##</code><code>##

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