Select Code to Download

my @lines = map { s/^\s+//; s/#.*//; s/\s+$//; length($_) ? $_ : () } 
+<$in>;

my @lines = map { local $_ = $_; s/^\s+//; s/#.*//; s/\s+$//; length($
+_) ? $_ : () } <$in>;