s/\w+\s*/$words{$&}++?'':$&/ge;

##</code><code>##

s/\w+\s*/$words{"\L$&"}++?'':$&/ge;