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

##</code><code>##

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