s{(?:(?<=&)|^)
  $tag=(.*?)
  (?:(?=&)|\z)
...

##</code><code>##

s{(?<![^&])
  $tag=(.*?)
  (?![^&])
...