DB<1> $a='0.0000001';
 
  DB<2> print $a+0
1e-07
  DB<3> printf "%s",$a
0.0000001
  DB<4> $a=sprintf "%s",$a
 
  DB<5> print $a
0.0000001
 
  DB<7> $a='0.00000000000000000000000000000000001000000000000000';
 
  DB<8> $a=sprintf "%s",$a+0
 
  DB<9> print $a
1e-35