Perlの正規表現で文字列マッチを繰り返し判定する方法を紹介します。 また、特定の繰り返し回数のみ文字列を置換する方法もあわせて紹介します。 1.問題点 Perlで文字列の一括置換を行う場合は、s///演算子にgオプションをつけることで簡単に実現できます。 #!/usr/bin/ use strict; my $content = "123abc456abc789abc"; $content =~ s/\d{3}/xyz/g; print $content; 実行結果 xyzabcxyzabcxyzabc が、文字列マッチを繰り返し判定する方法が分かりません。 2.文字列マッチを繰り返し判定する 文字列マッチを繰り返し判定するには、パターンマッチ演算子「//」にgオプションを与え、さらにwhile文を組み合わせます。 #!/usr/bin/ use strict; my $content