@mod_lines = map { (my $tmp = $_) =~ s/^#.*//; $tmp } @all_lines;