Select Code to Download

my @all   = <FILE>; 
my @some = grep { !/^\s*$/ } (my @most = map { s/#.*$//; $_ } @all);

s/#.*$// for my @most = @all;