Select Code to Download

use warnings;
use strict;
...
    $num = $num / $mult;
    return "$sign${num}e$e";
}

0          0         
-0.1       -100e-3   
...
-1000      -1e3      
1.234e+034 12.34e33  
1.234e-034 123.4e-36