while () { while (s/(AAA\.\d)/xxxxx/) { push (@list, $1); } }