s<(\w)(\w)>#$2$1#g

##</code><code>##

  s<(\w\w)>@reverse split m{},$1@ge