while (<IN>) { 
if (m/Server*Example/ig) { 
print OUT $_, "\n"; 
print $_; } 
}