こんなんでいいのか?
$ ls
test1 test2 test3
$ tar cf - test* |perl -MArchive::Tar -e '$tar=Archive::Tar->new(\*STDIN);$tar->remov\
e("test1");$tar->write(\*STDOUT)' |tar tf -
test3
test2