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