my @list;
foreach my $file (<INFILE>) {
    foreach (split /,/, $file) {
        m/(AAA\.\d)/;
        push @list, $1;
    }
}
[download]

Added a `\' in front of the `.' in your regex.