[reports]
yearlystore = 
quarterlystore = 
monthlystore = 
weeklystore = 
dailystore = 
[server1]
logfilepath1 = F:\Logfiles\ZWire\Zwire4\split-0\ex*.log
servername = Zwire4
logfilepassword = 
logfileusername = 
id = a104136320003954
[server2]
servername = Zwire6
logfilepath1 = f:\logfiles\zwire\zwire6\split-0\ex*.log
id = a104136346513171
logfilepassword = 
logfileusername = 
[server3]
id = a104136351461256
logfilepath1 = f:\logfiles\zwire\zwire7\split-0\ex*.log
logfilepassword = 
servername = zwire7

##</code><code>##

 
[header]
item =
item2 = 
item3 = 

##</code><code>##

[server1]
logfilepath1 = F:\Logfiles\ZWire\Zwire4\split-0\ex*.log
servername = Zwire4
logfilepassword = 
logfileusername = 
id = a104136320003954

##</code><code>##

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

print OUT @output;

##</code><code>##

undef $/; 
$file = <IN>; # to slurp whole file at once

$file =~ s/ # some complex regex //m;