my @words = $txt =~ m/\b(\w{3})\b(?=.*\b\1\b)(?!.*\b\1\b.*\b\1\b)/g;