Help for this page
AAA.1, AAA.2, AAA.3, AAA.4, AAA.5
my @list; while (<INFILE>) { m/(AAA.\d)/; push @list, $1; }