Select Code to Download

$number .= '0'  while length($number) < $places;
  # add trailing zeros if needed
$number =~ /(.{$places})/\.$1/;

# add trailing zeros, as above.
substr ($number, -$places, 0, '.');