Select Code to Download

LINE:
    while (<>) {
...
    } continue {
        print or die "-p destination: $!\n"; 
    }

perl -pe 'if($_ eq "\n"){$n=1;next;} if($n){$n=0;next;}else{s/# file/\
+n# file/;}' data1.txt