Select Code to Download

$frac = shift;

$frac =~ s/(\d+).$/$1/;   # remove last digit & get fraction size
$frac +=  "1E-" . length($1);   # add 1E-(size) => 0.0001

print $frac;