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) } #### # Split the line by whitespace my @array = split; #### while (<@array>) { #### while (glob join $", @array) { #### foreach (@array) {