while (split(/[, ]+/, )) ##

##

while ( @_ = split( /[, ]+/,  ) )