>>147

$str='AAABBBCCCAAACCCBBBCCCAAA';

while ($str)
{
if ($str =~ /AAA/)
{
print "$&\n"; # 「$&」はマッチした部分の文字列
$str = $'; # 「$'」はマッチした部分より後ろにある文字列
}

if ($str =~ /BBB/)
{
print "$&\n"; # 「$&」はマッチした部分の文字列
$str = $'; # 「$'」はマッチした部分より後ろにある文字列
}
}

こんなん？