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

##</code><code>##

#while (split(/[, ]+/, <DATA>))      # Edit: Sorry - ignore this
while (@_ = split(/[, ]+/, <DATA>))  # Edit: I meant this
{ print @_ }

##</code><code>##

me@here.com
those@there.comothers@there.com
you@there.comthem@there.com