my $num = 100;
my $digit = int ($num / ('1' . ('0' x (@{[ $num =~ /(.)/g ]} - 1))));