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って便利