while (split(/[, ]+/, <DATA>)) [download]
Is interpreted by perl as:
while ( @_ = split( /[, ]+/, <DATA> ) ) [download]
In reply to Re^3: Splitting in while loop by jwkrahn in thread Splitting in while loop by tel2