my $digit = (split //, '100')[0];

##</code><code>##

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