LINE:
    while (<>) {
        # your code goes here
    } continue {
        print or die "-p destination: $!\n"; 
    }

##</code><code>##

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