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