while (split(/[, ]+/, <DATA>))
{ print @_ }