ループで文字列$strを先頭から調べて、
ある正規表現にマッチしたら何かを処理。
文字列を最後まで調べ終わったらループを抜ける
ということをやりたいんですけど。

イメージ的には↓こんな感じ

while(？？？)
{
　if($str=~m/AAA/g)
　{
　　#何か実行
　}
　elsif($str=~m/BBB/g)
　{
　　#何か実行
　}
}