(@columns) = split (/ /,$line);