Select Code to Download

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

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

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