Help for this page
@info=<READ>; @info=grep(!/^ +$/, @info);
@info = grep {!/^\s+$/} map { chomp; $_ } <READ>;