local our %count;
$str =~ /
    (.+)    # or .{N,} where N is minimum length.
    (?(?{ $count{$1} })
        (?!)
    )
    .*
    \1
    (?{ ($count{$1} ||= 1)++ })
    (?!)
/x;