C:\test>213121.pl
Iterations: 500
Length: 500
             Enlil_2: 0.02351 sec/iteration found:208
            Dingus_1: 0.01400 sec/iteration found:208
           PhiRatE_2: 0.00987 sec/iteration found:208
             Rasta_1: 0.05989 sec/iteration found:208
            TommyW_1: 0.01516 sec/iteration found:208
          Robartes_1: 0.01560 sec/iteration found:208
           BrowserUk: 0.01186 sec/iteration found:208
            Dingus_2: 0.01785 sec/iteration found:208

C:\test>

##</code><code>##

#! perl -slw
use strict;
use Time::HiRes qw( gettimeofday tv_interval );

my $re = '';
$re .="(?:(?:(.)(?:\\$_*))|\$)" for 1 .. 500; $re = qr/$re/o;

my $stn =	"aaaaaaammm38fdkkkkkkkk3,,,,,,,,,,sad909999999994lkllllllllllllz"
	    .	",,,,,,,,,dd888888882jk2kkd8d888d8djkjkjkjkkk3kk4k5kkkk65      ";

for (1..2) { $stn.=$stn; }

my $iterations = 500;

print 'Iterations: ', $iterations;
print 'Length: ', length($stn);

for my $sub ( qw/Enlil_2 Dingus_1 PhiRatE_2 Rasta_1 TommyW_1 Robartes_1 BrowserUk Dingus_2/ ){  #! p_process_2/ ) {
	my $res;
	my $t0 = [gettimeofday];
	for (1..$iterations) {
		no strict 'refs';
		$res = &{$sub}($stn);
	}
	printf "%20s: %7.5f sec/iteration found:%3d\n",  $sub, tv_interval( $t0 )/$iterations,  scalar @$res;
}


sub BrowserUk {
  $_ = shift;
  my @c =  m/$re/;
  $#c = $#- -1;
  return \@c;
}

sub Enlil_2 {
  $_ = shift;
  my @bah;
  while ( /((.)\2*)/g) {
    push (@bah, [$2,$-[1],$+[1] - $-[1]]);
  }
  return \@bah;
}

sub Dingus_1 {
  my $string = shift;
  my ($p, $c, $i, @res) = (0, substr($string,0,1));

  for ($i=1; $i<length($string); $i++) {
    next if ($c eq substr($string,$i,1));
    push (@res, [$c,$p,($i-$p)]);
    $c = substr($string,$i,1);
    $p = $i;
  }
  push (@res, [$c,$p,($i-$p)]);
  return \@res;
}

sub Dingus_2 {
  $_ = shift;
  my (@res, $i, $p);
  $i = 0;
  while ( /(.)\1*/g ) {
    push (@res, [$1,  $i, pos()-$i]);
    $i = pos;
  }
  return \@res;
}

sub Rasta_1 {
  $_ = shift;
  my ($pp, $l, @res, $c) = (0, length);
  while ($pp < $l) {
    $c = substr $_, $pp, 1;
    if ( /\G\Q$c\E+/gc ) {
      push @res,[$c, $pp, pos() - $pp];
      $pp = pos;
    }
  }
  return \@res;
}

sub TommyW_1 {
  	$_ = shift;
  my ($pos, @triples) = (0);

  my @reps= /((.)\2*)/g;

  while (@reps) {
    my $hits=shift @reps;
    my $char=shift @reps;
    push @triples, [$char, $pos, length $hits];
    $pos+=length $hits;
  }
  return \@triples;
}

sub Robartes_1 {
  my $string = shift;

  my ($currstart, $index, @res) = (0, 0);
  my @listedstring = split//, $string;
  my $prev = shift @listedstring;

  for (@listedstring) {
    if ($_ eq $prev) {
      $index++;
    } else {
      push @res, [$prev, $currstart, $index-$currstart+1];
      $currstart=++$index;
      $prev=$_;
    }
  }
  push @res, [$prev, $currstart, $index-$currstart+1];
  return \@res;
}

sub PhiRatE_2 {
  $_ = shift;

  my ($count, $i, $prev, $next, @res) = (0, 0);

  $prev = $next = chop($_);

  while ($next || $prev) {
    if ($prev eq $next) {
      $count++;
    } else {
      push @res,[$prev, $i=$count, $count];
      $prev = $next;
      $count = 1;
    }
    $i++;
    $next = chop;
  }
  return \@res;
}

__END__

use Inline C => <<'END_OF_C_CODE';

void p_process_2(SV *svv) {
  char prev = 0;
  long count = 0;
  long i=0;
  long len = SvCUR(svv);
  AV *array;
  AV *list;
  char *s = SvPV(svv, len);

  Inline_Stack_Vars;
  Inline_Stack_Reset;

  list = newAV();
  av_extend(list, 500);

  prev = *s;

  for (i=0; i<len; i++) {
    if (prev == *s) {
      count++;
    } else {
      array = newAV();
      av_push(array,newSVpvn(&prev,1));
      av_push(array,newSViv(i-count));
      av_push(array,newSViv(count));
      av_push(list,newRV_inc(array));
      prev = *s;
      count=1;
    }

    s++;
  }
  Inline_Stack_Push(newRV_inc(list));
  Inline_Stack_Done;
}

END_OF_C_CODE