Select Code to Download

my $str = 'aabcdabcabcecdecd';

(abc => 3, bc => 3, cd => 3, ecd => 2)

sub count1 {
    local $_=shift;
...

    \%count;
}

$VAR1 = {
          'cd' => 3,
...
          'abc' => 3,
          'bc' => 3
        };

$VAR1 = {
          'cd' => 3,
...
          'd' => 3,
          'bc' => 3
        };

sub count2 {
    my $s=shift;
...
    } 0..length($s)-1;
    \%count;
}

$VAR1 = {
          'ecd' => 2,
          'abc' => 3,
          '3' => 2
        };