>>147

gc修飾子を使った場合はこうかな？
俺は>>151の「$'」使うやつのほうが分かりやすい。

$str='AAABBBCCCAAACCCBBBCCCAAA';

while ($str =~ //gc)
{
　if ($str =~ /AAA/gc)
　{
　　print "$&\n"; # 「$&」はマッチした部分の文字列
　}

　if ($str =~ /BBB/gc)
　{
　　print "$&\n"; # 「$&」はマッチした部分の文字列
　}

　if ($str =~ /CCC/gc)
　{
　　print "$&\n"; # 「$&」はマッチした部分の文字列
　}
}