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