Select Code to Download

  my $number = 10.8766756;
  my $string = $number . ""; # force $number into a string
  $string =~ s/(\.\d)\d*/\1/; # if $string has one (or more) decimal
  # figures, replace them all by the first decimal figure

  $string = int( $number * 100 ) / 100;