$| = 1;
print grep --$|, /\b(\w+)\b(?=(.*?)\b\1\b)/g'

##</code><code>##

print grep --$|,($|&&=0)|| /\b(\w+)\b(?=(.*?)\b\1\b)/g'

##</code><code>##

$| = 0;
print grep --$|, /\b(\w+)\b(?=(.*?)\b\1\b)/g'