opendir DIR, '.';
@files = readdir(DIR);

foreach (@files) {
  /(c\d\d\d).*zip/ && do {
    `unzip -o $_`;
    $newfilename = $1 . "g00voter.dat";
    `mv blk_data_voter_g00.stat $newfilename`;
  };
}