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