#!/usr/bin/perl -w
use warnings;
use strict;

use Archive::Zip qw( :ERROR_CODES );

my @files;
@files = <ATP.xxx*.zip>;
foreach my $file (@files){
 my $zip = Archive::Zip->new();
 $zip->read($file) == AZ_OK or die "read error $!";
 #$zip->endRead($file);
 $file=~ s{\.[^.]+$}{};
 my $m1 = $zip->memberNamed($file);
 $file=~s/^.{4}//s;
 $m1->fileName($file);
 $m1->endRead();
 $zip->overwriteAs("$file.zip") == AZ_OK or die "write error $!\n";
}