#!/usr/bin/perl

use strict;

for my $file ( @ARGV )
{
    {
        local $/;
        open( my $fh, "<", $file ) or do { warn "unable to read $file\n"; next };
        $_ = <$fh>;
    }
    s/( \{ \s*
          header\("Window-Target:\s*_top"\); \s*
          header\("Location:\s*index\.php"\); ) \s*
        \}
     /$1\n exit;\n}/gx;
    {
        open( my $fh, ">", $file ) or do { warn "unable to edit $file\n"; next };
        print $fh $_;
    }
}