foreach my $server (@servers) {
        open IN2, "<", $provinfile.$server or die "Could not open Server IN2 ($provinfile.$server): $!\n";
        open OUT2, ">", $provoutfile or die "Could not open OUT2: $!\n";

        while (<IN2>)
        {
                if (/\<13\>/../END OF REPORT/) {
                        #next if /PROXY500/ || /END OF REPORT/;
                        print OUT;
                }
        }
}

close(OUT2);
close(IN2);