/>[^<]*$a/s;


##</code><code>##

s/(>[^<]*)$a/$1$b/sg;