$string =~ /(\w{2,})(?{$seen{$1}++})(?!)/;