my ($toc) = grep { $_->name =~ m{/toc$} } $tar->get_files;