in reply to Regex related question

s/(.)\1\K(\1+)$// (Untested - requires 5.10). The required length would be calculated as: 2 + length($2).

In Section Seekers of Perl Wisdom