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