Select Code to Download

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

while (<INFILE>) {
 if (my @matches = m/(AAA\.\d)/g ) {
  push @list, @matches;
 }
}