$ perl -lwe '$_="[http://a|alpha] [http://b|beta]"; print; s{\[(http://.+?)\|(.+?)\]} {$2}gi; print' [http://a|alpha] [http://b|beta] alpha beta