use strict;
use warnings;

my $file=<>;
open FILE, '<', $file;
my @new = map { grep { not m/^#/ } } <FILE>;
close FILE;
my $nfile=<>;
open FILE, '>', $nfile;
print FILE map{" \n\n $_ \n\n "}@new for 1, <FILE>;