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

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

##</code><code>##


perl -ne '/^#/ or print'

perl -pe '$_ = "" if /^#/'

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