use Archive::Tar; my $tar = Archive::Tar->new( "some.tar" ); my @files = $tar->get_files; # returns list of Archive::Tar::File objects for my $file ( @files ) { my $data = $file->get_content; # same as above, but no searching involved # do other stuff... }