Select Code to Download

for(@array){
    ($i)= grep { m/^#/ } $_;
    push @new, $i;
}

while (<INFILE>) {
  next if /^#/;
  print OUTFILE $_;
}

perl -ne '/^#/ or print'
...

perl -pe '$_ x= !/^#/'