Select Code to Download

use strict;
use warnings;

...
my $nfile=<>;
open FILE, '>', $nfile;
print FILE map{" \n\n $_ \n\n "}@new for <FILE>;

use strict;
use warnings;

...
my $nfile=<>;
open FILE, '>', $nfile;
print FILE map{" \n\n $_ \n\n "}@new for 1, <FILE>;

use strict;
use warnings;

...
close FILE;
open FILE, '>', scalar <>;
print FILE map{" \n\n $_ \n\n "}@new;

use strict;
use warnings;

open INFILE, '<', scalar <>;
open OUTFILE, '>', scalar <>;
print OUTFILE map{" \n\n $_ \n\n "} grep { not m/^#/ } <INFILE>;