$text =~ s#\[link=(["'])(\S+)\1]([^[])+\[/link]#<a href="$2">$3</a>#g;