$ perl -lwe '$_="[http://a|alpha] [http://b|beta] [http://g]";
             print;
             s{ \[ (http://.+?)
                   (?: \| (.+?) )? \] }
              { qq!<a href="$1">! .
                (defined $2 ? $2 : $1) .
                qq!</a>\n! }giex;
             print'
[http://a|alpha] [http://b|beta] [http://g]
<a href="http://a">alpha</a>
 <a href="http://b">beta</a>
 <a href="http://g">http://g</a>