while ($value =~ s/href='[^']*?\K<br>//gsi) {} ;

##</code><code>##

  $value =~ s{href='[^']*?\K<br>([^']*)}{local $_ = $1, s/<br>//g, $_}gsie;