Select Code to Download

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

foreach my $line (@array) {
     next if ($line =~ /^#/);
     push @new, $line;
}