$text =~ s#(\[([^|])+\|([^\]]+)]#<a href="http://$1">$2</a>#g;