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