Select Code to Download

perl -e'
    $_ = qq{...\n}
...
    s!(<a href=")(.*?)(">bar</a>)!$1\[$2]$3!s;
    print;
'

...
<a href="foo">foo</a>
<a href="[bar]">bar</a>
...

...
<a href="[foo">foo</a>
<a href="bar]">bar</a>
...