in reply to Search in the .tgz file without unpack and untar

Use zcat, e.g. 
% zcat test.tgz | ack foo   
system("touch foo")
system("rm foo")
system("rm food")
chdir("foo")
%

[download]

In Section Seekers of Perl Wisdom