I was surprised to see the $& being the fastest. At least on my perl-5.28:

my $string = "AAATTTAGTTCTTAAGGCTGACATCGGTTTACGTCAGCGTTACCCCCCAAGTTATT
+GGGGACTTT";
my %expect = qw( CCCCCC 1 GGGG 1 AAA 1 TTT 3 AA 2 GG 2 TT 5 );

use Test::More;
use Benchmark qw(cmpthese);

my %subs;

sub v1 {
    %subs = ();
    $subs{$_}++ for grep { length >= 2 } split m/,/ => ($string =~ s/(
+[ACGT])\K(?!\1)/,/gr);
    } # v1

sub v2 {
    %subs = ();
    $subs{$_}++ for grep m/^([ACGT])\1+$/ => split m/,/ => ($string =~
+ s/(\w)\K(?!\1)/,/gr);
    } # v2

sub v3 {
    %subs = ();
    $subs{$_}++ for $string =~ m/(AA+|CC+|GG+|TT+)/g;
    } # v3

sub v4 {
    %subs = ();
    $subs{$1}++ while $string =~ m{(([ACGT])\2+)}g;
    } # v4

sub v5 {
    %subs = ();
    $subs{$&}++ while $string =~ m{([ACGT])\1+}g;
    } # v5

v1 (); is_deeply (\%subs, \%expect, "v1");
v2 (); is_deeply (\%subs, \%expect, "v2");
v3 (); is_deeply (\%subs, \%expect, "v3");
v4 (); is_deeply (\%subs, \%expect, "v4");
v5 (); is_deeply (\%subs, \%expect, "v5");

printf "%5d %3d %s\n", $subs{$_->[1]}, @$_ for sort { $b->[0] <=> $a->
+[0] || $a->[1] cmp $b->[1] } map {[ length, $_ ]} keys %subs;

cmpthese (-2, { v1 => \&v1, v2 => \&v2, v3 => \&v3, v4 => \&v4, v5 => 
+\&v5 });

done_testing;

[download]

=>

ok 1 - v1
ok 2 - v2
ok 3 - v3
ok 4 - v4
ok 5 - v5
    1   6 CCCCCC
    1   4 GGGG
    1   3 AAA
    3   3 TTT
    2   2 AA
    2   2 GG
    5   2 TT
      Rate   v2   v1   v3   v4   v5
v2 41981/s   -- -30% -52% -56% -57%
v1 59864/s  43%   -- -31% -38% -39%
v3 87244/s 108%  46%   --  -9% -12%
v4 95919/s 128%  60%  10%   --  -3%
v5 98685/s 135%  65%  13%   3%   --
1..5

[download]

Enjoy, Have FUN! H.Merijn

In reply to Re: substrings that consist of repeating characters by Tux
in thread substrings that consist of repeating characters by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.