while (<DATA>) {
   push (@foo, grep /AAA\.\d/, split(/\s*,\s*/));
}