my @list;
while (<INFILE>) {
  m/(AAA.\d)/;
  push @list, $1;
}