Select Code to Download

open FILE, '<', $file or die "Failed to open $file: $!";

($i)= grep { m/^#/ } $_;

! m/^#/ and push @new, $_ for @array;

print FILE " \n\n $_ \n\n " for @new;