chomp $_; # Split the line by whitespace my @array = split (/\s+/, $_); # If the first column of a line is blank whitespace, shift it out so the # first column corresponds to actual user viewable data, which is the way # a user will count the columns, ignoring leading whitespace. if ($array[0] eq "") { shift (@array) }