Select Code to Download

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

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