You can use the array returned by a global match, like so:

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

-- Mike

--
just,my${.02}