Select Code to Download

 #the first part of the code as the same last code i provided 
#!/usr/bin/perl -w
...
 $block -= () = /(\})/g;
#and if the block equal to 0 stop deleting lines 
#then print the output

my $comment = 0;
my $block   = 0;
...
    }
    print $out $_ unless $comment;
}