#/texlive/texmf-dist/lists/fonts1/fontmisc : 419840 while (<>) { chop; ($bundle,$size) = /.*lists.([^\/]*)\/.*: (.*).../; $Sizes{$bundle} = $Sizes{$bundle} + $size; } foreach $i (keys %Sizes) { $S=$Sizes{$i}/1000; print "p_",$i,"_du=\'$S\'\n"; }