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