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

##</code><code>##

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