@info=; @info=grep(!/^ +$/, @info); #### @info = grep {!/^\s+$/} map { chomp; $_ } ;