chomp(my @info = grep /\S/, <READ>);