my ($file,$line,$scount,$sscount,$ssscount); 
 
open (F, "<",$file); 
while(defined($line = <F> )){ 
	chomp $line; 
	if ($line =~ /(\\section{(.+)})/){ 
		$scount++; 
		print "$scount.$2\n"; 
	} 
	elsif ($line =~ /(\\subsection{(.+)})/){ 
		$sscount++; 
		print "$scount.$sscount.$2\n"; 
	} 
	elsif ($line =~ /(\\subsubsection{(.+)})/){ 
		$ssscount++; 
		print "$scount.$sscount.$ssscount.$2\n"; 
	} 
} 
close F;