in reply to
Re: Regex related question
in thread
Regex related question
small improvement, avg 20% faster regex
s/(\w)\1*(?=\1\1\Z)//
Comment on
Re^2: Regex related question
Download
Code
In Section
Seekers of Perl Wisdom