my @input = <FILE> ;

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

print "$special_cvs_header @body";