s/0+(?=.)// for my $decimal = join '', map sprintf('%0*d', $size, $_), reverse @number;