in reply to More efficient way to truncate long strings of the same character

If your strings are really quite long, and you want all characters in groups of 3, then using tr/// first is ~50 times quicker: 

$x =~ tr[A-Za-z][]s; 
$x =~ s[(.)][$1 x 3]ge;

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."
  • Comment on Re: More efficient way to truncate long strings of the same character
  • Download Code

In Section Seekers of Perl Wisdom