if ($line =~ m/^\*/) { $cnt++; next; }
		if ($line =~ m/^\s+/) { $cnt++; next; }