my @data = map [split], grep /\S/, <IN>;