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