Select Code to Download

local our %count;
$str =~ /
...
    (?{ ($count{$1} ||= 1)++ })
    (?!)
/x;

my $min_len = 2; # Substring is at least two chars long.
my $min_count = 3; # Substring occures at least three times.
...
  (?{ ($count{$1} ||= $min_count-1)++ })
  (?!)
/x;