in reply to regex issue

Please better define what you mean with "three letter-doubles". The two monks that responded previously understood something different, and I understood yet a third possibility.

Please explain and/or provide an example.

Replies are listed 'Best First'.
Re^2: regex issue
by Anonymous Monk on Aug 03, 2016 at 19:17 UTC

    I meant all 3letter words that occur more than once.

[reply]

      In that case:

      use strict;
use warnings;
my $term = 'Dit is het eerste het is niet het laatste Dit';
my @tlw = $term =~ /\b(\w{3})\b/g;

# Now you have all the three-letter words, so count them
my %seen = ();
$seen{$_}++ for @tlw;
for my $k (keys %seen) {
        print "$k occurs $seen{$k} times\n" if $seen{$k} > 1;
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom