Select Code to Download

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

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