I usually just s/// that kind of thing,

my $line = 'valid text blah blah # delete me and everything after poun
+d # also this';
$line =~ s/#.*$//;
print qq{"$line"\n};
[download]

results in:

"valid text blah blah "
[download]

I don't have an answer for your #2 question at the end.