perlで連続する同じ文字列を探す方法

【中古】 初めてのPerl ／ランダル・L．シュワルツ(著者),トムフェニックス(著者),近藤嘉雪(訳者) 【中古】afb

• ジャンル: 本・雑誌・コミック > PC・システム開発 > インターネット・WEBデザイン > Perl
• ショップ: ブックオフオンライン楽天市場店
• 価格: 198円

同一文字が3回以上連続する場合

#!/usr/bin/perl
use strict;
use warnings;
my $test = 'xyz123aaa';
#(.)は任意の1文字
#\1は正規表現内でマッチした文字　この場合任意の1文字
#{2,}2回以上連続した場合
if ($test =~ /(.)\1{2,}/){
print "$test\n";
}

perlって便利