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