@tars = </home/us/TKWorking/vects/*.tar.gz>;

print "Suspicious tars\n\n";

foreach (@tars) {

    if ($_ =~ /\#/) { # this is a composite

	if ($_ =~ /.+\#_(\d+).tar.gz/) {

	    print "$_ \n";
	    `rm -fr $_`;

	}

    }

}
