note ioannis A slight improvement. It is better to set the pattern to <b> $re = qr/((.)(?:\2)*)/ </b> . This will allow matching strings with single chars, strings like <i> $_ = 'abc' </i> . 551038 551041