sub lodin {
    my $str = shift;

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