!/usr/bin/perl -w -p 
s/^(\*+)/ 
$n = length($1), 
$n < $o ? @l[$n+1..$#l] = (0)x($#l-$n) : 0, 
$l[$n]++, 
$o = $n, 
join(".",@l[1..$n]) 
/e;