Maybe something like this for Perl

my @input = <FILE> ;

my @body = grep {! (1 ... /^[^#]/) } @input;

print "$special_cvs_header @body";
[download]

update:  grep {! (1 ... /^(?!#)/) } @input; is better though it looks like swearing