$_ = "bbbccabcabcabcdba";
    my $l = length;
    s{((\w{$l})\2+)}{($2){@{[length($1)/length($2)]}}}g while -- $l;