AAA.1, AAA.2, AAA.3, AAA.4, AAA.5 #### my @list; while () { m/(AAA.\d)/; push @list, $1; }