my $num = 100;
my $digit = int ($num / ('1' . ('0' x int (length ($num) -1))));