Select Code to Download

tar -cvf newarchive.tar `tar -tf archive.tar | grep "gz" | grep -v "si
+g"`

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";