You seem to be running an extremely old version of perl. Try changing it it:

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