#!/usr/bin/perl -wT
use strict;

my $s1 = 'abbbcddddfegrgrgddeeeeedd';

#        1         2         3         4         5         6
#2345678901234567890123456789012345678901234567890123456789012345678

print$s1.$/x2;push(@;,[$+[0]-$+[1],"-"x($+[1]-1).$&."-"x(length($s1)
-$+[0])])while$s1=~/(.)\1*/g;print$$_[1].$/for sort{$$b[0]-$$a[0]}@;