my $num = 100;
my $digit = int ($num / 10 ** int (log ($num) / log(10)));