my $str = "eeeeaaaabbbeeee";
$str =~ s/((a+)(??{'b'x length$2}))/'c' x (length($1) * .5) . 'd' x (length($1) * .5)/e;