while (<IN>) {
   if (/\[server(\d)\]/) {
     do { $throwaway = <IN>; } until { $throwaway = /\[server(\d)\]/ };
   } else {
     push @output, $_;
   }

print OUT @output;