my @list; while () { push @list, m/(AAA\.\d)/g; }