$, = "\n"; print split(',',$line);