my @gzfiles = grep { m/gz/ && ! m/sig/ } `tar -tf archive.tar`
my @args = ( "tar","-cvf","newarchive.tar", @gzfiles );
system(@args) == 0 
    or die "Can't archive files: $!\n@gzfiles";