my $number=12.2342342342;
    my $floatDecimal=2;
    if ($number=~/(\d{1,99})\.(\d{1,99})/){
      my $sTun=substr($2, 0, $floatDecimal);
      $number=$1.".".$sTun;
      print "Number:".$number;
    }
    #Number:12.23