Select Code to Download

@info=<READ>;
@info=grep(!/^ +$/, @info);

@info = grep {!/^\s+$/} map { chomp; $_ } <READ>;