use strict;
use warnings;

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