while (split(/[, ]+/, <DATA>))
{
  ...
}