Linq к объектам, таблице на тип и отношения внешнего ключа Nullable

Кажется, это делает то, что вы хотите. Это длиннее, чем другие ответы, но (надеюсь) менее загадочно.

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $string = 'aaabccdcx';

my $prev = '';
my $count;
my @out;

for (split //, $string) {
  if (
 Кажется, это делает то, что вы хотите. Это длиннее, чем другие ответы, но (надеюсь) менее загадочно. 
 [110] eq $prev) {
    $count++;
  } else {
    push @out, $prev . ($count > 1 ? " (x$count)" : '') if $count;
    $count = 1;
    $prev = 
 Кажется, это делает то, что вы хотите. Это длиннее, чем другие ответы, но (надеюсь) менее загадочно. 
 [110];
  }
}

push @out, $prev . ($count > 1 ? " (x$count)" : '');

print Dumper \@out;