Suppose there is a integer
my $num = 100;
How i can i extract 1 from it.